ligo/src/passes/operators/helpers.mli

module Typer : sig
  open Trace
  open Ast_typed

  module Errors : sig
    val wrong_param_number : string -> int -> 'a list -> unit -> error
    val error_uncomparable_types : type_value -> type_value -> unit -> error
  end

  type type_result = type_value
  type typer = type_value list -> type_value option -> type_result result

  (*
  val typer'_0 : name -> (type_value option -> type_value result) -> typer'
  *)
  val typer_0 : string -> ( type_value option -> type_value result ) -> typer
  (*
  val typer'_1 : name -> (type_value -> type_value result) -> typer'
  *)
  val typer_1 : string -> (type_value -> type_value result) -> typer
  (*
  val typer'_1_opt : name -> (type_value -> type_value option -> type_value result) -> typer'
  *)
  val typer_1_opt : string -> (type_value -> type_value option -> type_value result) -> typer
  (*
  val typer'_2 : name -> (type_value -> type_value -> type_value result) -> typer'
  *)
  val typer_2 : string -> (type_value -> type_value -> type_value result) -> typer
  val typer_2_opt : string -> (type_value -> type_value -> type_value option -> type_value result) -> typer
  (*
  val typer'_3 : name -> (type_value -> type_value -> type_value -> type_value result) -> typer'
  *)
  val typer_3 : string -> (type_value -> type_value -> type_value -> type_value result) -> typer
  (*
  val typer'_4 : name -> (type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
  *)
  val typer_4 : string -> (type_value -> type_value -> type_value -> type_value -> type_value result) -> typer
  (*
  val typer'_5 : name -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
  *)
  val typer_5 : string -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer
  (*
  val typer'_6 : name -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
  *)
  val typer_6 : string -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer

  val constant : string -> type_value -> typer 

  val eq_1 : type_value -> type_value -> bool
  val eq_2 : ( type_value * type_value ) -> type_value -> bool
  val assert_eq_1 : ?msg:string -> type_value -> type_value -> unit result

  val comparator : string -> typer
  val boolean_operator_2 : string -> typer

end

module Compiler : sig
  open Tezos_utils.Michelson

  type predicate =
    | Constant of michelson
    | Unary of michelson
    | Binary of michelson
    | Ternary of michelson
    | Tetrary of michelson
    | Pentary of michelson
    | Hexary of michelson
  val simple_constant : t -> predicate
  val simple_unary : t -> predicate
  val simple_binary : t -> predicate
  val simple_ternary : t -> predicate
  val simple_tetrary : t -> predicate
  val simple_pentary : t -> predicate
  val simple_hexary : t -> predicate

end