X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Ffreescale%2Ftable_HCS08_tests.ma;h=5983746ead0941a724f42bc7356ab983e153872d;hb=de7648541633d2b98a65ba340b39494ddb66b28e;hp=463a3b7a687523927f2560c9712ded95fcef40ff;hpb=20fdd66303330e6209059e90b6a98af71ec29567;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/freescale/table_HCS08_tests.ma b/helm/software/matita/contribs/ng_assembly/freescale/table_HCS08_tests.ma
index 463a3b7a6..5983746ea 100755
--- a/helm/software/matita/contribs/ng_assembly/freescale/table_HCS08_tests.ma
+++ b/helm/software/matita/contribs/ng_assembly/freescale/table_HCS08_tests.ma
@@ -13,15 +13,11 @@
 (**************************************************************************)
 
 (* ********************************************************************** *)
-(*                           Progetto FreeScale                           *)
+(*                          Progetto FreeScale                            *)
 (*                                                                        *)
-(* Sviluppato da:                                                         *)
-(*   Cosimo Oliboni, oliboni@cs.unibo.it                                  *)
+(*   Sviluppato da: Cosimo Oliboni, oliboni@cs.unibo.it                   *)
+(*     Cosimo Oliboni, oliboni@cs.unibo.it                                *)
 (*                                                                        *)
-(* Questo materiale fa parte della tesi:                                  *)
-(*   "Formalizzazione Interattiva dei Microcontroller a 8bit FreeScale"   *)
-(*                                                                        *)
-(*                    data ultima modifica 15/11/2007                     *)
 (* ********************************************************************** *)
 
 include "freescale/table_HCS08.ma".
@@ -41,8 +37,8 @@ nlemma ok_byte_table_HCS08 : forall_byte8 (λb.
  (test_not_impl_byte b HCS08_not_impl_byte     ⊙ eq_nat (get_byte_count HCS08 b 0 opcode_table_HCS08) 1) ⊗
  (⊖ (test_not_impl_byte b HCS08_not_impl_byte) ⊙ eq_nat (get_byte_count HCS08 b 0 opcode_table_HCS08) 0))
  = true.
- napply (refl_eq ??).
-qed.
+ napply refl_eq.
+nqed.
 
 (* HCS08: opcode non implementati come da manuale (0x9E+byte) *)
 ndefinition HCS08_not_impl_word ≝
@@ -77,7 +73,7 @@ nlemma ok_word_table_HCS08 : forall_byte8 (λb.
  (test_not_impl_byte b HCS08_not_impl_word     ⊙ eq_nat (get_word_count HCS08 b 0 opcode_table_HCS08) 1) ⊗
  (⊖ (test_not_impl_byte b HCS08_not_impl_word) ⊙ eq_nat (get_word_count HCS08 b 0 opcode_table_HCS08) 0))
  = true.
- napply (refl_eq ??).
+ napply refl_eq.
 nqed.
 
 (* HCS08: pseudocodici non implementati come da manuale *)
@@ -88,7 +84,7 @@ nlemma ok_pseudo_table_HCS08 : forall_opcode (λo.
  (test_not_impl_pseudo o HCS08_not_impl_pseudo     ⊙ le_nat 1 (get_pseudo_count HCS08 o 0 opcode_table_HCS08)) ⊗
  (⊖ (test_not_impl_pseudo o HCS08_not_impl_pseudo) ⊙ eq_nat (get_pseudo_count HCS08 o 0 opcode_table_HCS08) 0))
  = true.
- napply (refl_eq ??).
+ napply refl_eq.
 nqed.
 
 (* HCS08: modalita' non implementate come da manuale *)
@@ -110,12 +106,12 @@ nlemma ok_mode_table_HCS08 : forall_instr_mode (λi.
  (test_not_impl_mode i HCS08_not_impl_mode     ⊙ le_nat 1 (get_mode_count HCS08 i 0 opcode_table_HCS08)) ⊗
  (⊖ (test_not_impl_mode i HCS08_not_impl_mode) ⊙ eq_nat (get_mode_count HCS08 i 0 opcode_table_HCS08) 0))
  = true.
- napply (refl_eq ??).
+ napply refl_eq.
 nqed.
 
 nlemma ok_OpIm_table_HCS08 :
  forall_instr_mode (λi:instr_mode.
  forall_opcode     (λop:opcode.
   le_nat (get_OpIm_count HCS08 (anyOP HCS08 op) i 0 opcode_table_HCS08) 1)) = true.
- napply (refl_eq ??).
+ napply refl_eq.
 nqed.