forall a b, a <= S b -> a <= b |_| a = S b. Proof. intros [|a] b. - intros;left;apply zero_least. - intros E. apply (snd (le_S_S _ _)) in E. destruct E as [|b E];auto. left. apply le_S_S. trivial. Defined.
Require Import