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

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

248<br />

* or a product of denominators ‘‘dnm x1 * dnm x2 * ... * dnm xn‘‘,<br />

* the fact that this term is positive is added to the assumptions.<br />

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

(* INT_MUL_POS_SIGN: |- !a b. 0 0 0 raise ERR "FRAC_NOT_NAN_ASM_TAC" "";<br />

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

* NMR: thm<br />

* |- !a b. 0 < b ==> (nmr (abs_frac (a,b)) = a)<br />

*<br />

* DNM: thm<br />

* |- !a b. 0 < b ==> (dnm (abs_frac (a,b)) = b)<br />

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

(* FRAC_REP_ABS_SUBST: 0 < b |- (rep_frac (abs_frac (a,b)) = (a,b)) : thm *)<br />

val FRAC_REP_ABS_SUBST =<br />

let<br />

val lemma01 = prove( ‘‘(\f. 0 (nmr (abs_frac (a,b)) = a)‘‘,<br />

REPEAT STRIP_TAC THEN

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

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!