Require Export Arith. Require Export Omega. (* le_lt_dec : forall n m : nat, {n <= m} + {m < n} "destruct (le_lt_dec a b)" permet de faire deux cas : a<=b et b