X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fturing%2Funiversal.ma;h=35d7e0290ff87badba5bd22f2b1020eb98f8ddee;hb=cdcfe9f97936f02dab1970ebf3911940bf0a4e29;hp=295a5610fd7d2136bcf9e711d505900d6be6e44a;hpb=4063c155ff95d3364fcdefb162f24d76b12c71a4;p=helm.git

diff --git a/matita/matita/lib/turing/universal.ma b/matita/matita/lib/turing/universal.ma
index 295a5610f..35d7e0290 100644
--- a/matita/matita/lib/turing/universal.ma
+++ b/matita/matita/lib/turing/universal.ma
@@ -184,6 +184,7 @@ STATO 8:
 STATO 9:
   stato finale
 *)
+(* TODO
 match s with
  [ q0 ⇒ match c with
    [ bit x ⇒ 〈q1,〈mark x,L〉〉
@@ -229,7 +230,7 @@ match s with
    | mark D ⇒ 〈q9,〈bit D,L〉〉 ]
  | q9 ⇒ ? (* successo *)
  ].
-
+*)
 (*
 ==================================
 MACCHINE PER SPOSTARE LA "TESTINA"
@@ -290,7 +291,7 @@ STATO 3:
 STATO 4:
   stato finale
 *)
-
+(* TODO
 match s with
  [ q0 ⇒ match c with
    [ bit x ⇒ 〈q1 x,〈c,L〉〉
@@ -301,7 +302,7 @@ match s with
  | q2 d ⇒ 〈q0,〈d,L〉〉
  | q3 ⇒ 〈q4,〈grid,L〉〉
  | q4 ⇒ (* finale *) ].
-
+*)
 (*
 MACCHINA B
 ----------
@@ -334,7 +335,7 @@ STATO 3:
 STATO 4:
   stato finale
 *)
-
+(* TODO
 match s with
 [ q0 ⇒ match c with
   [ bit x ⇒ 〈q1 x,〈c,R〉〉
@@ -345,7 +346,7 @@ match s with
 | q2 d ⇒ 〈q0,〈d,R〉〉
 | q3 ⇒ 〈q4,〈grid,L〉〉 
 | q4 ⇒ (* finale *) ].
-
+*)
 (*
 MACCHINA C
 ----------
@@ -375,7 +376,7 @@ STATO 3:
   stato finale
 
 *)
-
+(* TODO
 match s with 
 [ q0 ⇒ match c with
   [ bit x ⇒ 〈q1 x,〈c,R〉〉
@@ -385,3 +386,4 @@ match s with
   | _ ⇒ 〈q2 c,〈bit x,L〉〉
 | q2 d ⇒ 〈q0,〈c,R〉〉
 | q3 ⇒ (* finale *) ].
+*)
\ No newline at end of file