fact: Definition le_induction'_step_computes {n p P H_base H_step} {Hp: p.+2 <= n.+1}: le_induction' (↓ Hp) P H_base H_step = H_step p Hp (le_induction' Hp P H_base H_step) := le_induction_step_computes.
imports: Bonak(Notation) Bonak(LeInductive)