fact: Fixpoint app_tree {o}: OpenTerm o → op_type OpenTerm0 o := match o with | ne_list.one _ => id | ne_list.cons _ _ => λ x y, app_tree (App _ _ _ _ x y) end.
imports: Coq.Classes.RelationClasses Coq.Relations.Relation_Definitions Coq.Lists.List Coq.Classes.Morphisms MathClasses.interfaces.universal_algebra MathClasses.interfaces.abstract_algebra MathClasses.interfaces.canonical_names MathClasses.theory.categories MathClasses.categories.varieties