From: matitaweb <claudio.sacerdoticoen@unibo.it>
Date: Fri, 2 Mar 2012 08:49:27 +0000 (+0000)
Subject: commit by user andrea
X-Git-Tag: make_still_working~1920
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=55be7edb5a8249fa65746a47ea1b702881cbc979;p=helm.git

commit by user andrea
---

diff --git a/weblib/tutorial/chapter7.ma b/weblib/tutorial/chapter7.ma
index 208db9e3f..da90566e8 100644
--- a/weblib/tutorial/chapter7.ma
+++ b/weblib/tutorial/chapter7.ma
@@ -26,14 +26,14 @@ interpretation "atom" 'ps a = (s ? a).
 notation "`∅" non associative with precedence 90 for @{ 'empty }.
 interpretation "empty" 'empty = (z ?).
 
-(* The language $sem{e}$ associated with the regular expression e is inductively 
+(* The language sem{e} associated with the regular expression e is inductively 
 defined by the following function: *)
 
-let rec in_l (S : a href="cic:/matita/tutorial/chapter4/DeqSet.ind(1,0,0)"DeqSet/a) (r : a href="cic:/matita/tutorial/chapter7/re.ind(1,0,1)"re/a S) on r : a href="cic:/matita/tutorial/chapter6/word.def(3)"word/a S → Prop ≝ 
+let rec in_l (S : a href="cic:/matita/tutorial/chapter4/DeqSet.ind(1,0,0)"DeqSet/aspan class="error" title="Parse error: RPAREN expected after [term] (in [arg])"/span) (r : a href="cic:/matita/tutorial/chapter7/re.ind(1,0,1)"re/a S) on r : a href="cic:/matita/tutorial/chapter6/word.def(3)"word/aspan class="error" title="Parse error: SYMBOL '≝' expected (in [let_defs])"/span S → Prop ≝ 
 match r with
-[ z ⇒ a title="empty set" href="cic:/fakeuri.def(1)"∅/a
+[ z ⇒ a title="empty set" href="cic:/fakeuri.def(1)"∅/aspan class="error" title="Parse error: SYMBOL '|' or SYMBOL ']' expected (in [term])"/span
 | e ⇒ a title="singleton" href="cic:/fakeuri.def(1)"{/aa title="epsilon" href="cic:/fakeuri.def(1)"ϵ/a}
-| s x ⇒ a title="singleton" href="cic:/fakeuri.def(1)"{/aa title="cons" href="cic:/fakeuri.def(1)"[/ax]}
+| s x ⇒ a title="singleton" href="cic:/fakeuri.def(1)"{/aspan class="error" title="Parse error: [ident] or [term level 19] expected after [sym{] (in [term])"/spana title="cons" href="cic:/fakeuri.def(1)"[/aspan class="error" title="Parse error: [term] expected after [sym[] (in [term])"/spanx]}
 | c r1 r2 ⇒ (in_l ? r1) a title="cat lang" href="cic:/fakeuri.def(1)"·/a (in_l ? r2)
 | o r1 r2 ⇒ (in_l ? r1) a title="union" href="cic:/fakeuri.def(1)"∪/a (in_l ? r2)
 | k r1 ⇒ (in_l ? r1) a title="star lang" href="cic:/fakeuri.def(1)"^/a*].
@@ -128,10 +128,11 @@ lemma erase_plus : ∀S.∀i1,i2:pitem S.
 lemma erase_star : ∀S.∀i:pitem S.|i^*| = |i|^*. 
 // qed.
 
-(* Items and pres are a very concrete datatype: they can be effectively compared, 
-and enumerated. In particular, we can define a boolean equality beqitem and 
-\vebeqitem_true+ enriching the set \verb+(pitem S)+
-to a \verb+DeqSet+. boolean equality *)
+(* Items and pres are very concrete datatypes: they can be effectively compared, 
+and enumerated. In particular, we can define a boolean equality beqitem and a proof
+beqitem_true that it refects propositional equality, enriching the set (pitem S)
+to a DeqSet. *)
+
 let rec beqitem S (i1,i2: pitem S) on i1 ≝ 
   match i1 with
   [ pz ⇒ match i2 with [ pz ⇒ true | _ ⇒ false]
@@ -179,7 +180,11 @@ qed.
 
 definition DeqItem ≝ λS.
   mk_DeqSet (pitem S) (beqitem S) (beqitem_true S).
-  
+
+(* We also add a couple of unification hints to allow the type inference system 
+to look at (pitem S) as the carrier of a DeqSet, and at beqitem as if it was the 
+equality function of a DeqSet. *)
+
 unification hint  0 ≔ S; 
     X ≟ mk_DeqSet (pitem S) (beqitem S) (beqitem_true S)
 (* ---------------------------------------- *) ⊢ 
@@ -190,7 +195,9 @@ unification hint  0 ≔ S,i1,i2;
 (* ---------------------------------------- *) ⊢ 
     beqitem S i1 i2 ≡ eqb X i1 i2.
 
-(* semantics *)
+(* The intuitive semantic of a point is to mark the position where
+we should start reading the regular expression. The language associated
+to a pre is the union of the languages associated with its points. *)
 
 let rec in_pl (S : DeqSet) (r : pitem S) on r : word S → Prop ≝ 
 match r with
@@ -211,6 +218,8 @@ definition in_prl ≝ λS : DeqSet.λp:pre S.
 interpretation "in_prl mem" 'mem w l = (in_prl ? l w).
 interpretation "in_prl" 'in_l E = (in_prl ? E).
 
+(* The following, trivial lemmas are only meant for rewriting purposes. *)
+
 lemma sem_pre_true : ∀S.∀i:pitem S. 
   \sem{〈i,true〉} = \sem{i} ∪ {ϵ}. 
 // qed.
@@ -243,6 +252,14 @@ lemma sem_star_w : ∀S.∀i:pitem S.∀w.
   \sem{i^*} w = (∃w1,w2.w1 @ w2 = w ∧ \sem{i} w1 ∧ \sem{|i|}^* w2).
 // qed.
 
+(* Below are a few, simple, semantic properties of items. In particular:
+- not_epsilon_item : ∀S:DeqSet.∀i:pitem S. ¬ (\sem{i} ϵ).
+- epsilon_pre : ∀S.∀e:pre S. (\sem{i} ϵ) ↔ (\snd e = true).
+- minus_eps_item: ∀S.∀i:pitem S. \sem{i} =1 \sem{i}-{[ ]}.
+- minus_eps_pre: ∀S.∀e:pre S. \sem{\fst e} =1 \sem{e}-{[ ]}.
+The first property is proved by a simple induction on $i$; the other
+results are easy corollaries. We need an auxiliary lemma first. *)
+
 lemma append_eq_nil : ∀S.∀w1,w2:word S. w1 @ w2 = ϵ → w1 = ϵ.
 #S #w1 #w2 cases w1 // #a #tl normalize #H destruct qed.
 
@@ -255,7 +272,6 @@ lemma not_epsilon_lp : ∀S:DeqSet.∀e:pitem S. ¬ (ϵ ∈ e).
   ]
 qed.
 
-(* lemma 12 *)
 lemma epsilon_to_true : ∀S.∀e:pre S. ϵ ∈ e → \snd e = true.
 #S * #i #b cases b // normalize #H @False_ind /2/ 
 qed.