fact: Fixpoint show_term (t : term) := match t with | Const n => show n | Id x => "Id" ++ show x | App t1 t2 => "(" ++ show_term t1 ++ " " ++ show_term t2 ++ ")" | Abs t => "λ.(" ++ show_term t ++ ")" end.
imports: mathcomp(ssreflect ssrbool eqtype) Arith List String Lia Program Relations Wellfounded Lexicographic_Product QuickChick(QuickChick) QuickChick.stlc(monad)