(** Inversion lemma for (le n m): *)

(* Specifications: *)
Lemma le_inv :
forall n m : nat,
le n m -> or (eq nat n m) (ex nat (fun k => and (le n k) (eq nat m (S k)))).
Lemma le_n_Sm :
forall n : nat,
wf_nat n ->
forall m : nat, wf_nat m -> le n (S m) -> or (le n m) (eq nat n (S m)).