Verifikation reaktiver Systeme - Universität Kaiserslautern

254
*--------------------------------------------------------------------------*)
val NMR_CONV:conv = fn term =>
let
val (nmr,f) = dest_comb term;
in
let
val (abs,args) = dest_comb f;
in
let
val [a,b] = strip_pair args;
in
UNDISCH_ALL(SPEC b (SPEC a NMR))
end
end
end
handle HOL_ERR _ => raise ERR "NMR_CONV" "";
val DNM_CONV:conv = fn term =>
let
val (nmr,f) = dest_comb term;
in
let
val (abs,args) = dest_comb f;
in
let
val [a,b] = strip_pair args;
in
UNDISCH_ALL(SPEC b (SPEC a DNM))
end
end
end
handle HOL_ERR _ => raise ERR "DNM_CONV" "";
end;
A.4 rationalScript
(*==========================================================================*)
(* Theory of rational numbers. (Jens Brandt) *)
(* *)
(* The rational numbers are constructed as equivalence classes of fractions *)
(* using the quotient theory of Peter Vincent Homeier *)
(* *)
(* February 2004 *)
(* *)
(*==========================================================================*)
open HolKernel boolLib Parse bossLib;