fact: Definition QabsQpos (x : Q) : Qpos := match x with | 0 # _ => (1%Qpos) | (Zpos an) # ad => (an # ad)%Qpos | (Zneg an) # ad => (an # ad)%Qpos end.
imports: Coq.QArith.QArith Coq.QArith.Qpower CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields2 Coq.Logic.Eqdep_dec CoRN.tactics.CornTac Coq.QArith.Qround Coq.QArith.Qabs CoRN.stdlib_omissions.Q