{α : Type u_1} →
  (motive : Option (α × Batteries.PairingHeapImp.Heap α) → Sort u_2) →
    (x : Option (α × Batteries.PairingHeapImp.Heap α)) →
      (x = none → motive none) →
        ((hd : α) → (tl : Batteries.PairingHeapImp.Heap α) → x = some (hd, tl) → motive (some (hd, tl))) → motive x