Module Ssrparser.Internal

val mk_index : ?loc:Loc.t -> int Locus.or_var -> int Locus.or_var
val noindex : int Locus.or_var
val pr_intros : (unit -> Pp.t) -> Ssrast.ssripats -> Pp.t
val pr_view : Ssrast.ssrterm list -> Pp.t
val pr_mult : Ssrast.ssrmult -> Pp.t
val is_ssr_loaded : unit -> bool
val pr_hpats : Ssrast.ssrhpats -> Pp.t
val pr_hint : 'a -> 'b -> ('a -> 'b -> Constrexpr.entry_relative_level -> 'c -> Pp.t) -> 'c Ssrast.ssrhint -> Pp.t
val intro_id_to_binder : Ssrast.ssripat list -> ((Ssrast.ssrfwdkind * Ssrast.ssrbindfmt list) * Constrexpr.constr_expr) list
val binder_to_intro_id : ((Ssrast.ssrfwdkind * Ssrast.ssrbindfmt list) * Constrexpr.constr_expr) list -> Ssrast.ssripat list list
val bind_fwd : (('a * 'b list) * Constrexpr.constr_expr) list -> (('c * 'b list) * Ssrast.ast_closure_term) -> ('c * 'b list) * Ssrast.ast_closure_term
val pr_wgen : Ssrast.wgen -> Pp.t