Runtime (pa_ppx.Pa_ppx_params

type lident = string

val equal_lident : 'a -> 'a -> bool

type uident = string

val equal_uident : 'a -> 'a -> bool

type !'a ne_list = 'a list

val equal_ne_list : ('a -> 'a -> Bool.t) -> 'a ne_list -> 'a ne_list -> Bool.t

type (!'a, !'b) alist = ('a * 'b) list

val equal_alist : 
  ('a -> 'a -> Bool.t) ->
  ('b -> 'b -> Bool.t) ->
  ('a, 'b) alist ->
  ('a, 'b) alist ->
  Bool.t

val equal_ctyp : MLast.ctyp -> MLast.ctyp -> bool

val equal_expr : MLast.expr -> MLast.expr -> bool

val equal_patt : MLast.patt -> MLast.patt -> bool

val equal_longid : MLast.longid -> MLast.longid -> bool

type case_branch =
  Pa_ppx_base.Pp_MLast.patt
  * Pa_ppx_base.Pp_MLast.expr option Pa_ppx_base.Pp_MLast.Ploc.vala
  * Pa_ppx_base.Pp_MLast.expr

val equal_case_branch : case_branch -> case_branch -> Bool.t

type longid_lident =
  Pa_ppx_base.Pp_MLast.longid Pa_ppx_base.Pp_MLast.Ploc.vala option
  * string Pa_ppx_base.Pp_MLast.Ploc.vala

val equal_longid_lident : longid_lident -> longid_lident -> Bool.t

val convert_down_ne_list_expr : (MLast.expr -> 'a) -> MLast.expr -> 'a list