fact: Definition vars_with_type (e : env) (tau : type) : list term := map (fun p => Id (snd p)) (filter (fun p => proj1_sig (Sumbool.bool_of_sumbool (type_eq_dec tau (fst p)))) (combine e (seq 0 (List.length e)))).
imports: mathcomp(ssreflect ssrbool eqtype) Arith List String Lia Program Relations Wellfounded Lexicographic_Product QuickChick(QuickChick) QuickChick.stlc(monad)