diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-05 16:42:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-05 16:42:46 +0000 |
| commit | 8c376b71eb6ebc72ec44fd980dc282b8796299c7 (patch) | |
| tree | 4a58bbc01bfbbf8dacb4ff58d68afa0cd3921244 /toplevel/vernacentries.ml | |
| parent | 19d89158f4e0e4be5998f2ff9b64e90270977a32 (diff) | |
Added a table for using reserved names for binding names to types
(in addition of types to names)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13887 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index e3d3d2032..ddd97dda5 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -804,7 +804,7 @@ let vernac_reserve bl = let t = Constrintern.interp_type Evd.empty (Global.env()) c in let t = Detyping.detype false [] [] t in let t = aconstr_of_glob_constr [] [] t in - List.iter (fun id -> Reserve.declare_reserved_type id t) idl) + Reserve.declare_reserved_type idl t) in List.iter sb_decl bl let vernac_generalizable = Implicit_quantifiers.declare_generalizable |