example ex1 : \fst (equiv ? (exp8+exp9) exp9) = true.
normalize // qed.
+definition exp10 ≝ a·a·a·a·a·a·a·a·a·a·a·a·(a^* ).
+definition exp11 ≝ (a·a·a·a·a + a·a·a·a·a·a·a)^*.
-
+example ex2 : \fst (equiv ? (exp10+exp11) exp10) = true.
+normalize // qed.