fact: Definition to_rterm := fix loop (t : GRing.term R) : term := match t with | GRing.Var x => Var x | GRing.Const x => Const x | GRing.NatConst n => NatConst n | GRing.Add u v => Add (loop u) (loop v) | GRing.Opp u => Opp (loop u) | GRing.NatMul u n => NatMul (loop u) n | GRing.Mul u v => Mul (loop u) (loop v) | GRing.Exp u n => Exp (loop u) n | _ => NatConst 0 end.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(finfun path matrix) mathcomp(bigop order ssralg poly polydiv ssrnum zmodp div ssrint) mathcomp(polyorder polyrcf interval polyXY) mathcomp(qe_rcf_th ordered_qelim mxtens)