fact: Fixpoint show_type (tau : type) := match tau with | N => "N" | Arrow tau1 tau2 => "(Arrow " ++ show_type tau1 ++ " -> " ++ show_type tau2 ++ ")" end.
imports: mathcomp(ssreflect ssrbool eqtype) Arith List String Lia QuickChick(QuickChick)