diff options
| -rw-r--r-- | parsing/g_constrnew.ml4 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 3df5253e6f..7a11123c6b 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -31,9 +31,6 @@ let _ = (* For Correctness syntax; doesn't work if in psyntax (freeze pb?) *) let _ = Lexer.add_token ("","!") -let pair loc = - Qualid (loc, Libnames.qualid_of_string "Coq.Init.Datatypes.pair") - let mk_cast = function (c,(_,None)) -> c | (c,(_,Some ty)) -> CCast(join_loc (constr_loc c) (constr_loc ty), c, ty) |