X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_kernel%2FnCicReduction.ml;h=131ccad07004f208153e2742d6d7e4a4c002aa32;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=9234f07aab85f9acf1d2fc5831b0743f7e7733cc;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git

diff --git a/matita/components/ng_kernel/nCicReduction.ml b/matita/components/ng_kernel/nCicReduction.ml
index 9234f07aa..131ccad07 100644
--- a/matita/components/ng_kernel/nCicReduction.ml
+++ b/matita/components/ng_kernel/nCicReduction.ml
@@ -373,7 +373,7 @@ let are_convertible status ~metasenv ~subst =
         R.reduce status ~delta ~subst context m2
      in
      let rec convert_machines test_eq_only
-       ((k1,e1,t1,s1),norm1 as m1),((k2,e2,t2,s2), norm2 as m2) 
+       (((k1,e1,t1,s1),norm1 as m1),((k2,e2,t2,s2), norm2 as m2))
      =
        (alpha_eq status test_eq_only
          (R.unwind status (k1,e1,t1,[])) (R.unwind status (k2,e2,t2,[])) &&