fact: Definition ratInverse (r : Rat) := match r with | RatIntro n d => match n with | O => RatIntro d (pos (S O)) | S n' => RatIntro d (pos (S n')) end end.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms