diff options
author | 2001-12-16 09:03:08 +0000 | |
---|---|---|
committer | 2001-12-16 09:03:08 +0000 | |
commit | e6d2309432e62b38d689777c28ef84ce495c8b27 (patch) | |
tree | 0af3e498b44b75d56633ed860269361c744cbd00 /toplevel | |
parent | e2e4f1388e9ab9dc6a92a9bf9b6c6c001faa048a (diff) |
Ajout syntaxe 'Canonical Structure' en remplacement de @Definition + suppression des @Coercion, @Local et @Local Coercion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2299 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/vernacentries.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index d5366f8c6..b603b28e3 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -916,6 +916,15 @@ let _ = | _ -> bad_vernac_args "DEFINITION") let _ = + add "CANONICAL" + (function + | [VARG_QUALID qid] -> + fun () -> + let ref = Nametab.global dummy_loc qid in + Recordobj.objdef_declare ref + | _ -> bad_vernac_args "CANONICAL") + +let _ = add "VARIABLE" (function | [VARG_STRING kind; VARG_BINDERLIST slcl] -> |