X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Fextra.ma;h=25e0cb6fab5fe0f00cb7edf9d5d6419d9ce63fc3;hb=f3b2d7d538f93a97dc8992747b697600a9df869c;hp=bc76c4d6b7f0addf954b61fa572c3ad3657d803e;hpb=9eabe046c1182960de8cfdba96c5414224e3a61e;p=helm.git

diff --git a/helm/software/matita/contribs/assembly/freescale/extra.ma b/helm/software/matita/contribs/assembly/freescale/extra.ma
index bc76c4d6b..25e0cb6fa 100644
--- a/helm/software/matita/contribs/assembly/freescale/extra.ma
+++ b/helm/software/matita/contribs/assembly/freescale/extra.ma
@@ -54,6 +54,16 @@ definition eq_bool ≝
  [ true ⇒ b2
  | false ⇒ not_bool b2 ].
 
+lemma eqbool_to_eq : ∀b1,b2:bool.(eq_bool b1 b2 = true) → (b1 = b2).
+ unfold eq_bool;
+ intros;
+ elim b1 in H:(%);
+ elim b2 in H:(%);
+ normalize in H:(%);
+ try reflexivity;
+ destruct H.
+qed.
+
 (* \ominus *)
 notation "hvbox(⊖ a)" non associative with precedence 36
  for @{ 'not_bool $a }.