@@ -337,7 +337,7 @@ let add_glob_tactic_notation ?deprecation tacobj ids tac =
337337 in
338338 Lib. add_leaf (inTacticGrammar (tacobj, body))
339339
340- let add_glob_tactic_notation_syntax local ~level ? deprecation prods forml =
340+ let add_glob_tactic_notation_syntax local ~level prods forml =
341341 let parule = {
342342 tacgram_level = level;
343343 tacgram_prods = prods;
@@ -356,9 +356,9 @@ let add_tactic_notation ?deprecation tacobj e =
356356 let tac = Tacintern. glob_tactic_env ids (Global. env() ) UnivNames. empty_binders e in
357357 add_glob_tactic_notation ?deprecation tacobj ids tac
358358
359- let add_tactic_notation_syntax local n ? deprecation prods =
359+ let add_tactic_notation_syntax local n prods =
360360 let prods = List. map interp_prod_item prods in
361- add_glob_tactic_notation_syntax local ~level: n ?deprecation prods false
361+ add_glob_tactic_notation_syntax local ~level: n prods false
362362
363363(* *********************************************************************)
364364(* ML Tactic entries *)
@@ -412,7 +412,7 @@ let synterp_add_ml_tactic_notation name ~level ?deprecation prods =
412412 let entry = { mltac_name = name; mltac_index = len - i - 1 } in
413413 let map id = Reference (Locus. ArgVar (CAst. make id)) in
414414 let tac = CAst. make (TacML (entry, List. map map ids)) in
415- let tacobj = add_glob_tactic_notation_syntax false ~level ?deprecation prods true in
415+ let tacobj = add_glob_tactic_notation_syntax false ~level prods true in
416416 tacobj, { Tacenv. alias_args = ids; alias_body = tac; alias_deprecation = deprecation;
417417 alias_is_ml = Some entry;
418418 }
0 commit comments