From: Wilmer Ricciotti <ricciott@cs.unibo.it>
Date: Tue, 15 Jan 2013 15:38:57 +0000 (+0000)
Subject: unistep_aux
X-Git-Tag: make_still_working~1344
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e461bb10382fe2ea65bd37dd56be46c6aec67db7;p=helm.git

unistep_aux
---

diff --git a/matita/matita/lib/turing/multi_universal/unistep_aux.ma b/matita/matita/lib/turing/multi_universal/unistep_aux.ma
index adfa29b8d..06427b3bb 100644
--- a/matita/matita/lib/turing/multi_universal/unistep_aux.ma
+++ b/matita/matita/lib/turing/multi_universal/unistep_aux.ma
@@ -12,6 +12,7 @@
 include "turing/multi_universal/moves_2.ma".
 include "turing/multi_universal/match.ma".
 include "turing/multi_universal/copy.ma".
+include "turing/multi_universal/alphabet.ma".
 
 (*
 
@@ -50,38 +51,6 @@ include "turing/multi_universal/copy.ma".
   cfg_to_obj
 *)
 
-inductive unialpha : Type[0] ≝ 
-| bit : bool → unialpha
-| bar : unialpha.
-
-definition unialpha_eq ≝ 
-  λa1,a2.match a1 with
-  [ bit x ⇒ match a2 with [ bit y ⇒ ¬ xorb x y | _ ⇒ false ]
-  | bar ⇒ match a2 with [ bar ⇒ true | _ ⇒ false ] ].
-  
-definition DeqUnialpha ≝ mk_DeqSet unialpha unialpha_eq ?.
-* [ #x * [ #y cases x cases y normalize % // #Hfalse destruct
-         | *: normalize % #Hfalse destruct ]
-  | * [ #y ] normalize % #H1 destruct % ]
-qed.
-
-lemma unialpha_unique : 
-  uniqueb DeqUnialpha [bit true;bit false;bar] = true.
-// qed.
-
-lemma unialpha_complete :∀x:DeqUnialpha. 
-  memb ? x [bit true;bit false;bar] = true.
-* // * //
-qed.
-
-definition FSUnialpha ≝ 
-  mk_FinSet DeqUnialpha [bit true;bit false;bar] 
-  unialpha_unique unialpha_complete.
-
-(*************************** testing characters *******************************)
-definition is_bit ≝ λc.match c with [ bit _ ⇒ true | _ ⇒ false ].
-definition is_bar ≝ λc.match c with [ bar ⇒ true | _ ⇒ false ].
-
 definition obj ≝ 0.
 definition cfg ≝ 1.
 definition prg ≝ 2.