fact: Fixpoint max_const (t : term) : nat := match t with | Id _ => 0 | Const n => n | App t1 t2 => max (max_const t1) (max_const t2) | Abs t => max_const t end.
imports: mathcomp(ssreflect ssrbool ssrnat eqtype) String QuickChick(QuickChick) Arith List Lia QuickChick.stlc(lambda) Wellfounded