diff options
| author | herbelin | 2007-02-07 19:01:08 +0000 |
|---|---|---|
| committer | herbelin | 2007-02-07 19:01:08 +0000 |
| commit | 078969914a22f1c143723d473c3c33c020d13ae8 (patch) | |
| tree | cc263e1117b8f400ba5805118fd9edae70d82a2b /toplevel | |
| parent | 72994350da5ca5d11bfe545837500291c8da7732 (diff) | |
Vérification que toutes les evars ont étés instanciées dans les types implicites des Fixpoint/CoFixpoint (report revision 9617 de 8.1 vers trunk)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9618 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 756ae31b67..d9c91808f7 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -595,6 +595,7 @@ let interp_recursive fixkind l boxed = let fixdefs = List.map (nf_evar (Evd.evars_of isevars)) fixdefs in let fixtypes = List.map (nf_evar (Evd.evars_of isevars)) fixtypes in List.iter (check_evars env_rec Evd.empty isevars) fixdefs; + List.iter (check_evars env Evd.empty isevars) fixtypes; check_mutuality env kind (List.combine fixnames fixdefs); (* Build the fix declaration block *) |