X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fcomponents%2Fbinaries%2Fxoa%2Fast.ml;h=42285524036073349c2ba7c1c67c93bba14304c7;hb=000dc5a8de79b2ab63a49cf0f9db2b540cc05bcf;hp=4de0c10579e07b5c66947796eeef8a23983f3325;hpb=4de2411d2cecf21630f6675f58e64f8ec6de9b60;p=helm.git

diff --git a/matita/components/binaries/xoa/ast.ml b/matita/components/binaries/xoa/ast.ml
index 4de0c1057..422855240 100644
--- 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_and c = And c