proposition: Lemma prec_antisym : forall s, prec s s -> False.
proof: Proof. intros s; destruct s; simpl; trivial. Qed.
imports: Arith Omega Compare_dec Relations Wellfounded Tools More_nat Wf_nat AccP not_decreasing ArithRing term rpo List