path: root/lib/icl/ast.ml

open Sexplib.Std

type binding_expr = Var of string | Const of Drl.Ast.value  (** reuse DRL value for literals *)
[@@deriving sexp]

type constraint_body =
  | MemberOf of {target: string; binding: (string * binding_expr) list}
  | Not of {body: constraint_body; universe: string}
  | And of constraint_body list
  | Or of constraint_body list
  | Exists of {variable: string; quantifier: string; body: constraint_body}
  | Forall of {variable: string; quantifier: string; body: constraint_body}
[@@deriving sexp]

type statement =
  | RegisterConstraint of {constraint_name: string; relation_name: string; body: constraint_body}
[@@deriving sexp]