diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-20 12:57:40 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-20 12:57:40 +0000 |
| commit | ea188f154f86960008df67fa0266a3aa648ff1e7 (patch) | |
| tree | dcc392b3078d369f2994a6fc81d209526005d45a /interp | |
| parent | e7fc963667a6cfbf9f8516f49ea1dcb9d6779f2d (diff) | |
Fix bug 2307
Evars of source "ImpossibleCase" that remain undefined at the end of
case analysis are now defined to ID (forall A : Type, A -> A).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13023 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/coqlib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 6cfe1421f..8a4bc6365 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -135,7 +135,7 @@ let make_con dir id = Libnames.encode_con dir id let id = make_con datatypes_module (id_of_string "id") let type_of_id = make_con datatypes_module (id_of_string "ID") -let _ = Cases.set_impossible_default_clause (mkConst id,mkConst type_of_id) +let _ = Termops.set_impossible_default_clause (mkConst id,mkConst type_of_id) (** Natural numbers *) let nat_kn = make_kn datatypes_module (id_of_string "nat") |