data Expr : Type -> Type
Var : a -> Expr a
Neutral : Expr a
Append : Expr a -> Expr a -> Expr a
Monoid (Expr a)
Semigroup (Expr a)
eval : LMonoid a => Expr a -> a
esum : LMonoid a => List a -> a
normalize : Expr a -> List a
0 solve : {auto {conArg:1273} : LMonoid a} -> (e1 : Expr a) -> (e2 : Expr a) -> normalize e1 = normalize e2 => eval e1 = eval e2