proposition: Lemma compare_correct alpha beta : CompareSpec (alpha = beta) (lt alpha beta) (lt beta alpha) (compare alpha beta).
proof: Proof. destruct alpha, beta; cbn. destruct (compare_correct vnf0 vnf1);subst. unfold compare,compare_G0; simpl. - rewrite compare_rw_eq; auto. + constructor 1; f_equal; apply nfb_proof_unicity. - unfold compare,compare_G0; rewrite compare_rw_lt; auto. - unfold compare,compare_G0; rewrite compare_rw_gt; auto. Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)