From c182c9e8beb5c950b7c565fd1db58f63c7fa213b Mon Sep 17 00:00:00 2001 From: pboutill Date: Wed, 8 Aug 2012 15:13:04 +0000 Subject: Fixup for macOS 10.8 & Ocaml 4.0 git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15704 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/funind/functional_principles_types.ml | 6 ------ 1 file changed, 6 deletions(-) (limited to 'plugins') diff --git a/plugins/funind/functional_principles_types.ml b/plugins/funind/functional_principles_types.ml index 42e5c36a8..567bdcd6e 100644 --- a/plugins/funind/functional_principles_types.ml +++ b/plugins/funind/functional_principles_types.ml @@ -144,12 +144,6 @@ let compute_new_princ_type_from_rel rel_to_fun sorts princ_type = (* observe (str "replacing " ++ pr_lconstr c ++ str " by " ++ pr_lconstr res); *) res in - let rec has_dummy_var t = - fold_constr - (fun b t -> b || (eq_constr t dummy_var) || (has_dummy_var t)) - false - t - in let rec compute_new_princ_type remove env pre_princ : types*(constr list) = let (new_princ_type,_) as res = match kind_of_term pre_princ with -- cgit v1.2.3