proposition: Remark Rem04 : P 0.
proof: Proof. unfold P;red; simpl. enough (Hgt: (compare alpha beta = Datatypes.Gt)) by congruence. apply compare_gt_iff. generalize (const_pathS_LT Halpha Hpa). destruct 1; tauto. Qed.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)