fact: Definition le_induction'' {n p} (Hp: p.+2 <= n.+2) (P : forall p (Hp: p.+2 <= n.+2), Type) (H_base: P n (♢ n.+2)) (H_step: forall p (H : p.+3 <= n.+2), P p.+1 H -> P p (↓ H)): P p Hp := le_induction' (⇓ Hp) (fun p Hp => P p (⇑ Hp)) H_base (fun q Hq => H_step q (⇑ Hq)).
imports: Bonak(Notation) Bonak(LeInductive)