Merge with cfg
This commit is contained in:
@ -73,20 +73,20 @@ type t_exp =
|
||||
| LetIn of variable * t_exp * t_exp (* let x = x in x *)
|
||||
| LetFun of variable * variable * ftype * t_exp * t_exp (* let rec x. y: t. x in x*)
|
||||
|
||||
type permittedValues =
|
||||
type permitted_values =
|
||||
IntegerPermitted of int
|
||||
| BooleanPermitted of bool
|
||||
| TuplePermitted of permittedValues * permittedValues
|
||||
| TuplePermitted of permitted_values * permitted_values
|
||||
| FunctionPermitted of closure
|
||||
and closure = {
|
||||
input: variable;
|
||||
body: t_exp;
|
||||
assignments: permittedValues VariableMap.t;
|
||||
assignments: permitted_values VariableMap.t;
|
||||
recursiveness: variable option
|
||||
}
|
||||
|
||||
type memory = {
|
||||
assignments: permittedValues VariableMap.t
|
||||
assignments: permitted_values VariableMap.t
|
||||
}
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user