exact node_right i h <| IH refl node_left node_right
case node_right
k i✝ i k✝ : Nat
h : Descendant (2 * i + 2) k✝
IH :
  ∀ {motive : (i : Nat) → Descendant i k✝ → Prop},
    motive k✝ (_ : Descendant k✝ k✝) →
      (∀ (i : Nat) (h : Descendant (2 * i + 1) k✝), motive (2 * i + 1) h → motive i (_ : Descendant i k✝)) →
        (∀ (i : Nat) (h : Descendant (2 * i + 2) k✝), motive (2 * i + 2) h → motive i (_ : Descendant i k✝)) →
          motive (2 * i + 2) h
motive : (i : Nat) → Descendant i k✝ → Prop
refl : motive k✝ (_ : Descendant k✝ k✝)
node_left : ∀ (i : Nat) (h : Descendant (2 * i + 1) k✝), motive (2 * i + 1) h → motive i (_ : Descendant i k✝)
node_right : ∀ (i : Nat) (h : Descendant (2 * i + 2) k✝), motive (2 * i + 2) h → motive i (_ : Descendant i k✝)
⊢ motive i (_ : Descendant i k✝)
no goals