fact: Definition compare t1 t2 := let ft1 := fstpp(t1) in let ft2 := fstpp(t2) in let st1 := sndpp(t1) in let st2 := sndpp(t2) in match (Pos.compare ft1 ft2) with | Lt => Lt | Eq => Pos.compare st1 st2 | Gt => Gt end.
imports: MSets Arith NArith Notations Sorting Coq.Program.Equality GeoCoq.Tactics.Coinc.tactics_axioms