fact: Fixpoint to_ua (e: Term): Applied := match e with | Var v => ua_packed.AppliedVar msig v tt | Unit => ua_packed.AppliedOp msig monoids.one (ua_packed.NoMoreArguments msig tt) | Comp x y => ua_packed.AppliedOp msig monoids.mult (MoreArguments msig tt _ (to_ua x) (MoreArguments msig tt _ (to_ua y) (NoMoreArguments msig tt))) end.
imports: Coq(Lia) MathClasses.interfaces.abstract_algebra MathClasses.theory.ua_packed