unify function

2024-10-26 20:22:13 +02:00
parent 57e2613602
commit 9a71d5011b
4 changed files with 85 additions and 0 deletions
--- a/lib/miniFun/Types.mli
+++ b/lib/miniFun/Types.mli
@ -2,6 +2,13 @@ type variable = string

 module VariableMap : Map.S with type key = variable

+type intermediaryTypes =
+    IntermediaryIntegerType
+  | IntermediaryBooleanType
+  | IntermediaryFunctionType of (variable option) * (intermediaryTypes list)
+  | IntermediaryVariableType of variable
+type substitution = intermediaryTypes VariableMap.t
+
 type ftype =
    IntegerType
  | BooleanType