(* Example of unprotected balanced path *************************************)
-definition b: path â đâđâđâđąđ.
+definition l3_b: path â đâđâđâđąđ.
-lemma b_unfold: đâđâđâđąđ = b.
+lemma l3_b_unfold: đâđâđâđąđ = l3_b.
// qed.
-lemma b_balanced: âb Īĩ đ.
-<b_unfold <structure_d_dx
+lemma l3_b_balanced: âl3_b Īĩ đ.
+<l3_b_unfold <structure_d_dx
/2 width=1 by pbc_empty, pbc_redex/
qed.
-lemma b_closed: b Īĩ đâ¨âģ,đâŠ.
+lemma l3_b_closed: l3_b Īĩ đâ¨âģ,đâŠ.
/4 width=1 by pcc_A_sn, pcc_empty, pcc_false_d_dx, pcc_L_dx/
qed.
-lemma b_unwind2_rmap_unfold (f):
- (âĢ¯f)âđŽâ¨đ⊠= âļ[f]b.
+lemma l3_b_unwind2_rmap_unfold (f):
+ (âĢ¯f)âđŽâ¨đ⊠= âļ[f]l3_b.
// qed.
-lemma b_unwind2_rmap_pap_unit (f):
- â(fīŧ â§Ŗâ¨đâŠ) = âļ[f]bīŧ â§Ŗâ¨đâŠ.
+lemma l3_b_unwind2_rmap_pap_unit (f):
+ â(fīŧ â§Ŗâ¨đâŠ) = âļ[f]l3_bīŧ â§Ŗâ¨đâŠ.
// qed.