diff options
| author | herbelin | 2008-03-30 21:42:58 +0000 |
|---|---|---|
| committer | herbelin | 2008-03-30 21:42:58 +0000 |
| commit | 90e5407fcfc59dce5ea592aeae6195183a2b4ad2 (patch) | |
| tree | a30c7aebc8d840b87d702b972fbbff16714e4b6d /interp/implicit_quantifiers.ml | |
| parent | 0b6924f05ef6beb775345f3fb2ad21a009ab3baa (diff) | |
Ajout d'abbréviations/notations paramétriques
Example: "Notation reflexive R := (forall x, R x x)."
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10730 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 3551746b8b..8f42d76c28 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -34,7 +34,7 @@ let locate_reference qid = | TrueGlobal ref -> ref | SyntacticDef kn -> match Syntax_def.search_syntactic_definition dummy_loc kn with - | Rawterm.RRef (_,ref) -> ref + | [],ARef ref -> ref | _ -> raise Not_found let is_global id = |