fact: Fixpoint measure (e: Term): nat := match e with | Var v => 0%nat | Unit => 1%nat | Comp x y => S (2 * measure x + measure y) end.
imports: Coq(Lia) MathClasses.interfaces.abstract_algebra MathClasses.theory.ua_packed