(* Title: ZF/simpdata.ML Author: Lawrence C Paulson, Cambridge University Computer Laboratory Copyright 1991 University of Cambridge
Rewriting for ZF set theory: specialized extraction of rewrites from theorems.
*)
(*** New version of mk_rew_rules ***)
(*Should False yield False<->True, or should it solve goals some other way?*)
(*Analyse a theorem to atomic rewrite rules*) fun atomize (conn_pairs, mem_pairs) th = letfun tryrules pairs t = case head_of t of Const(a,_) =>
(case AList.lookup (op =) pairs a of
SOME rls => maps (atomize (conn_pairs, mem_pairs)) ([th] RL rls)
| NONE => [th])
| _ => [th] incase Thm.concl_of th of
\<^Const_>\<open>Trueprop for P\<close> =>
(case P of
\<^Const_>\<open>mem for a b\<close> => tryrules mem_pairs b
| \<^Const_>\<open>True\<close> => []
| \<^Const_>\<open>False\<close> => []
| A => tryrules conn_pairs A)
| _ => [th] end;
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
