fact: Fixpoint print_term (t : term) : string := match t with | Cst c => print_const c | Lam n t => "λ" ++ n ++ " " ++ print_term t | Var n => n | App t₁ t₂ => print_term t₁ ++ " " ++ print_term t₂ end.
imports: Bool String Coq.Classes.RelationClasses