updated xoa and predefined virtuals

[helm.git] / matita / components / binaries / xoa / ast.ml

diff --git a/matita/components/binaries/xoa/ast.ml b/matita/components/binaries/xoa/ast.ml
index 4de0c10579e07b5c66947796eeef8a23983f3325..42b4034c12174aa1553b9e42c0fc992b770f76e1 100644 (file)
--- a/matita/components/binaries/xoa/ast.ml
+++ b/matita/components/binaries/xoa/ast.ml
@@ -15,7 +15,10 @@ type subarity = int
 
 type directive = Exists of arity * subarity
                | Or of arity
+               | And of arity
 
 let mk_exists c v = Exists (c, v)
 
-let mk_or c = Or c 
+let mk_or c = Or c
+
+let mk_and c = And c