proposition: Theorem le_zero_inv : forall a, a <= zero -> a = zero.
proof: Proof. destruct 1. auto. absurd (a < zero);auto with T1. Qed.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List