equal
deleted
inserted
replaced
43 |
43 |
44 subsubsection \<open>Demonstration of \<open>fast\<close>\<close> |
44 subsubsection \<open>Demonstration of \<open>fast\<close>\<close> |
45 |
45 |
46 schematic_goal "?p : (EX y. ALL x. J(y,x) <-> ~J(x,x)) |
46 schematic_goal "?p : (EX y. ALL x. J(y,x) <-> ~J(x,x)) |
47 --> ~ (ALL x. EX y. ALL z. J(z,y) <-> ~ J(z,x))" |
47 --> ~ (ALL x. EX y. ALL z. J(z,y) <-> ~ J(z,x))" |
48 apply (tactic \<open>fast_tac @{context} FOLP_cs 1\<close>) |
48 apply (tactic \<open>fast_tac \<^context> FOLP_cs 1\<close>) |
49 done |
49 done |
50 |
50 |
51 |
51 |
52 schematic_goal "?p : ALL x. P(x,f(x)) <-> |
52 schematic_goal "?p : ALL x. P(x,f(x)) <-> |
53 (EX y. (ALL z. P(z,y) --> P(z,f(x))) & P(x,y))" |
53 (EX y. (ALL z. P(z,y) --> P(z,f(x))) & P(x,y))" |
54 apply (tactic \<open>fast_tac @{context} FOLP_cs 1\<close>) |
54 apply (tactic \<open>fast_tac \<^context> FOLP_cs 1\<close>) |
55 done |
55 done |
56 |
56 |
57 |
57 |
58 subsubsection \<open>Derivation of conjunction elimination rule\<close> |
58 subsubsection \<open>Derivation of conjunction elimination rule\<close> |
59 |
59 |