25.11.2014 Aufrufe

Verifikation reaktiver Systeme - Universität Kaiserslautern

Verifikation reaktiver Systeme - Universität Kaiserslautern

Verifikation reaktiver Systeme - Universität Kaiserslautern

MEHR ANZEIGEN
WENIGER ANZEIGEN

Erfolgreiche ePaper selbst erstellen

Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.

270<br />

*<br />

* RAT_MULT_LID: thm<br />

* |- !a. rat_mul rat_1 a = a<br />

*--------------------------------------------------------------------------*)<br />

val RAT_ADD_RID = store_thm("RAT_ADD_RID",<br />

‘‘!a. rat_add a rat_0 = a‘‘,<br />

REWRITE_TAC[rat_add_def,rat_0_def] THEN<br />

REWRITE_TAC[RAT_ADD_CONG] THEN<br />

REWRITE_TAC[FRAC_ADD_RID] THEN<br />

ARW_TAC[CONJUNCT1 rat_def]);<br />

val RAT_ADD_LID = store_thm("RAT_ADD_LID",<br />

‘‘!a. rat_add rat_0 a = a‘‘,<br />

ONCE_REWRITE_TAC[RAT_ADD_COMM] THEN<br />

ARW_TAC[RAT_ADD_RID] );<br />

val RAT_MULT_RID = store_thm("RAT_MULT_RID",<br />

‘‘!a. rat_mul a rat_1 = a‘‘,<br />

REWRITE_TAC[rat_mul_def,rat_1_def] THEN<br />

REWRITE_TAC[RAT_MULT_CONG] THEN<br />

REWRITE_TAC[FRAC_MUL_RID] THEN<br />

ARW_TAC[CONJUNCT1 rat_def]);<br />

val RAT_MULT_LID = store_thm("RAT_MULT_LID",<br />

‘‘!a. rat_mul rat_1 a = a‘‘,<br />

ONCE_REWRITE_TAC[RAT_MULT_COMM] THEN<br />

ARW_TAC[RAT_MULT_RID] );<br />

(*--------------------------------------------------------------------------<br />

* RAT_ADD_RINV: thm<br />

* |- !a. rat_add a (rat_ainv a) = rat_0<br />

*<br />

* RAT_ADD_LINV: thm<br />

* |- !a. rat_add (rat_ainv a) a = rat_0<br />

*<br />

* RAT_MULT_RINV: thm<br />

* |- !a. ~(a=rat_0) ==> (rat_mul a (rat_minv a) = rat_1)<br />

*<br />

* RAT_MULT_LINV: thm<br />

* |- !a. ~(a = rat_0) ==> (rat_mul (rat_minv a) a = rat_1)<br />

*--------------------------------------------------------------------------*)<br />

val RAT_ADD_RINV = store_thm("RAT_ADD_RINV",<br />

‘‘!a. rat_add a (rat_ainv a) = rat_0‘‘,<br />

GEN_TAC THEN<br />

REWRITE_TAC[rat_add_def,rat_ainv_def,rat_0_def] THEN<br />

ARW_TAC[RAT_ADD_CONG] THEN<br />

REWRITE_TAC[add_def,ainv_def,frac_0_def] THEN<br />

DNM_POS_ASM_TAC ‘‘dnm (rep_rat a)‘‘ THEN

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!