+nlet rec pre_of_re (S : Alpha) (e : re S) on e : pitem S ≝
+ match e with
+ [ z ⇒ pz ?
+ | e ⇒ pe ?
+ | s x ⇒ ps ? x
+ | c e1 e2 ⇒ pc ? (pre_of_re ? e1) (pre_of_re ? e2)
+ | o e1 e2 ⇒ po ? (pre_of_re ? e1) (pre_of_re ? e2)
+ | k e1 ⇒ pk ? (pre_of_re ? e1)].
+
+nlemma notFalse : ¬False. @; //; nqed.
+
+nlemma dot0 : ∀S.∀A:word S → Prop. {} · A = {}.
+#S A; nnormalize; napply extP; #w; @; ##[##2: *]
+*; #w1; *; #w2; *; *; //; nqed.
+
+nlemma Lp_pre_of_re : ∀S.∀e:re S. 𝐋\p (pre_of_re ? e) = {}.
+#S e; nelim e; ##[##1,2,3: //]
+##[ #e1 e2 H1 H2; nchange in match (𝐋\p (pre_of_re S (e1 e2))) with (?∪?);
+ nrewrite > H1; nrewrite > H2; nrewrite > (dot0…); nrewrite > (cupID…);//
+##| #e1 e2 H1 H2; nchange in match (𝐋\p (pre_of_re S (e1+e2))) with (?∪?);
+ nrewrite > H1; nrewrite > H2; nrewrite > (cupID…); //
+##| #e1 H1; nchange in match (𝐋\p (pre_of_re S (e1^* ))) with (𝐋\p (pre_of_re ??) · ?);
+ nrewrite > H1; napply dot0; ##]
+nqed.
+
+nlemma erase_pre_of_reK : ∀S.∀e. 𝐋 |pre_of_re S e| = 𝐋 e.
+#S A; nelim A; //;
+##[ #e1 e2 H1 H2; nchange in match (𝐋 (e1 · e2)) with (𝐋 e1·?);
+ nrewrite < H1; nrewrite < H2; //
+##| #e1 e2 H1 H2; nchange in match (𝐋 (e1 + e2)) with (𝐋 e1 ∪ ?);
+ nrewrite < H1; nrewrite < H2; //
+##| #e1 H1; nchange in match (𝐋 (e1^* )) with ((𝐋 e1)^* );
+ nrewrite < H1; //]
+nqed.
+
+(* corollary 17 *)
+nlemma L_Lp_bull : ∀S.∀e:re S.𝐋 e = 𝐋\p (•pre_of_re ? e).
+#S e; nrewrite > (bull_cup…); nrewrite > (Lp_pre_of_re…);
+nrewrite > (cupC…); nrewrite > (cup0…); nrewrite > (erase_pre_of_reK…); //;
+nqed.