Verifikation reaktiver Systeme - Universität Kaiserslautern

253
(SPEC b2 (SPEC a2 (SPEC b1 (SPEC a1 (
prove(‘‘!a1 b1 a2 b2. (a1=a2) /\ (b1=b2) ==>
(abs_frac(a1,b1)=abs_frac(a2,b2))‘‘, ARW_TAC[])
)))))
(CONJ thm1 thm2)
)
end
end
end
end
handle HOL_ERR _ => raise ERR "FRAC_EQ_TAC" "";
(*--------------------------------------------------------------------------
* DNM_POS_ASM_TAC : term -> tactic
*
*
* ============== DNM_POS_ASM_TAC
* A ?- 0 < t1
*
* If t1 is term representing the denominator of a fraction ‘‘dnm x‘‘
* or a product of denominators ‘‘dnm x1 * dnm x2 * ... * dnm xn‘‘,
* the fact that this term is positive is added to the assumptions.
*--------------------------------------------------------------------------*)
(* INT_MUL_POS_SIGN: |- !a b. 0 0 0 raise ERR "FRAC_NOT_NAN_ASM_TAC" "";
(*--------------------------------------------------------------------------
* NMR_CONV: conv
* NMR_CONV ‘‘nmr (abs_frac (a,b))‘‘ = 0 < b |- (nmr (abs_frac (a,b)) = a)
*
* DNM_CONV: thm
* DNM_CONV ‘‘dnm (abs_frac (a,b))‘‘ = 0 < b |- (dnm (abs_frac (a,b)) = a)