diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-19 16:55:18 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-19 16:55:18 +0000 |
| commit | ef64634b31a4cd999cd08636adbf117f81889fb1 (patch) | |
| tree | a8c4cf15e41961d90317dd1b97adfd70c39b67b2 /toplevel | |
| parent | be4f29c6d62ecef7c8736c1cd154616d3ef5292c (diff) | |
Names: revised representation of constants and mutual_inductive
- a module KernelPair for improving sharing between constant and mind
- shorter representation than a pair when possible
- exports comparisions on constant and mind and ...
- a kn_equal function instead of Int.equal (kn_ord ...) 0
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16217 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/search.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/toplevel/search.ml b/toplevel/search.ml index afc961596..30e7dca8b 100644 --- a/toplevel/search.ml +++ b/toplevel/search.ml @@ -128,9 +128,8 @@ let filter_by_module (module_list:Dir_path.t list) (accept:bool) in xor accept (filter_aux module_list) -let ref_eq = Globnames.encode_mind Coqlib.logic_module (Id.of_string "eq"), 0 -let c_eq = mkInd ref_eq -let gref_eq = IndRef ref_eq +let gref_eq = Coqlib.glob_eq +let c_eq = mkInd (Globnames.destIndRef gref_eq) let mk_rewrite_pattern1 eq pattern = PApp (PRef eq, [| PMeta None; pattern; PMeta None |]) |