fact: Fixpoint show_term (e : term) := match e with | Const n => "(Const " ++ show n ++ ")" | Id x => "(Id " ++ show x ++ ")" | App e1 e2 => "(App " ++ show_term e1 ++ " " ++ show_term e2 ++ ")" | Abs t e => "(Abs " ++ show t ++ " " ++ show_term e ++ ")" end.
imports: mathcomp(ssreflect ssrbool eqtype) Arith List String Lia QuickChick(QuickChick)