From c284fcd570342c31bc21169960579a20a763e32e Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Tue, 23 Jun 2026 23:53:26 -0300 Subject: Format --- lib/icl/ast.ml | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) (limited to 'lib/icl/ast.ml') diff --git a/lib/icl/ast.ml b/lib/icl/ast.ml index 30b0fa7..1a5b096 100644 --- a/lib/icl/ast.ml +++ b/lib/icl/ast.ml @@ -1,23 +1,17 @@ open Sexplib.Std -type binding_expr = - | Var of string - | Const of Drl.Ast.value (** reuse DRL value for literals *) +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 } + | 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 } + | 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; - } + | RegisterConstraint of {constraint_name: string; relation_name: string; body: constraint_body} [@@deriving sexp] -- cgit v1.2.3