From: Wilmer Ricciotti <ricciott@cs.unibo.it>
Date: Mon, 7 Oct 2013 11:20:25 +0000 (+0000)
Subject: Completes the  definition of binaryTM.
X-Git-Tag: make_still_working~1095
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=731ea10325b1140f73061a1a2a07061e1e959d5b;p=helm.git

Completes the  definition of binaryTM.
---

diff --git a/matita/matita/lib/turing/multi_universal/binaryTM.ma b/matita/matita/lib/turing/multi_universal/binaryTM.ma
index 75cd9f49c..668ac00f6 100644
--- a/matita/matita/lib/turing/multi_universal/binaryTM.ma
+++ b/matita/matita/lib/turing/multi_universal/binaryTM.ma
@@ -43,6 +43,7 @@ definition states_binaryTM : FinSet → FinSet → FinSet ≝ λsig,states.
          (FinProd (FinOption sig) (initN (2 * (FS_crd sig)))).
 
 axiom daemon : ∀T:Type[0].T.
+definition initN_pred ≝ λn.λm:initN n.(pred (pi1 … m) : initN n).
 
 (* controllare i contatori, molti andranno incrementati di uno *)
 definition trans_binaryTM : ∀sig,states:FinSet.
@@ -97,9 +98,9 @@ definition trans_binaryTM : ∀sig,states:FinSet.
       ]
   | S phase ⇒ match phase with
   [ O ⇒ (*** PHASE 5: left extension ***)
-      match count with
-      [ O ⇒ 〈〈s0,2,ch,FS_crd sig〉,None ?,N〉
-      | S k ⇒ 〈〈s0,5,ch,k〉,Some ? false,L〉 ]
+      match pi1 … count with
+      [ O ⇒ 〈〈s0,bin2,ch,FS_crd sig〉,None ?,N〉
+      | S k ⇒ 〈〈s0,bin5,ch,k〉,Some ? false,L〉 ]
   | S _ ⇒ (*** PHASE 6: stop ***) 〈s,None ?,N〉 ]]]]]].  
 
 (*