fact: Fixpoint Snorm_list (lpe : list (RExpr R' * RExpr R' * PExpr N * PExpr N)) : seq R' := if lpe is (lhs, rhs, _, _) :: lpe then Snorm id lhs :: Snorm id rhs :: Snorm_list lpe else [::].
imports: elpi(elpi) Coq(ZArith Ring Ring_polynom Field_theory) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg ssrnum ssrint) mathcomp.zify(ssrZ zify) mathcomp.algebra_tactics(common)