diff options
Diffstat (limited to 'grammar/q_util.ml4')
-rw-r--r-- | grammar/q_util.ml4 | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4 index be021467b..895584703 100644 --- a/grammar/q_util.ml4 +++ b/grammar/q_util.ml4 @@ -8,9 +8,7 @@ (* This file defines standard combinators to build ml expressions *) -open Extrawit open Compat -open Pp let mlexpr_of_list f l = List.fold_right @@ -51,9 +49,6 @@ let mlexpr_of_option f = function | None -> <:expr< None >> | Some e -> <:expr< Some $f e$ >> -open Vernacexpr -open Genarg - let rec mlexpr_of_prod_entry_key = function | Pcoq.Alist1 s -> <:expr< Pcoq.Alist1 $mlexpr_of_prod_entry_key s$ >> | Pcoq.Alist1sep (s,sep) -> <:expr< Pcoq.Alist1sep $mlexpr_of_prod_entry_key s$ $str:sep$ >> |