|
31974
|
1 |
(* Title: FOL/ex/Foundation.thy
|
|
19819
|
2 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory
|
|
|
3 |
Copyright 1991 University of Cambridge
|
|
|
4 |
*)
|
|
|
5 |
|
|
58889
|
6 |
section "Intuitionistic FOL: Examples from The Foundation of a Generic Theorem Prover"
|
|
19819
|
7 |
|
|
|
8 |
theory Foundation
|
|
|
9 |
imports IFOL
|
|
|
10 |
begin
|
|
|
11 |
|
|
|
12 |
lemma "A&B --> (C-->A&C)"
|
|
|
13 |
apply (rule impI)
|
|
|
14 |
apply (rule impI)
|
|
|
15 |
apply (rule conjI)
|
|
|
16 |
prefer 2 apply assumption
|
|
|
17 |
apply (rule conjunct1)
|
|
|
18 |
apply assumption
|
|
|
19 |
done
|
|
|
20 |
|
|
|
21 |
text {*A form of conj-elimination*}
|
|
|
22 |
lemma
|
|
|
23 |
assumes "A & B"
|
|
|
24 |
and "A ==> B ==> C"
|
|
|
25 |
shows C
|
|
26682
|
26 |
apply (rule assms)
|
|
19819
|
27 |
apply (rule conjunct1)
|
|
26682
|
28 |
apply (rule assms)
|
|
19819
|
29 |
apply (rule conjunct2)
|
|
26682
|
30 |
apply (rule assms)
|
|
19819
|
31 |
done
|
|
|
32 |
|
|
|
33 |
lemma
|
|
|
34 |
assumes "!!A. ~ ~A ==> A"
|
|
|
35 |
shows "B | ~B"
|
|
26682
|
36 |
apply (rule assms)
|
|
19819
|
37 |
apply (rule notI)
|
|
|
38 |
apply (rule_tac P = "~B" in notE)
|
|
|
39 |
apply (rule_tac [2] notI)
|
|
|
40 |
apply (rule_tac [2] P = "B | ~B" in notE)
|
|
|
41 |
prefer 2 apply assumption
|
|
|
42 |
apply (rule_tac [2] disjI1)
|
|
|
43 |
prefer 2 apply assumption
|
|
|
44 |
apply (rule notI)
|
|
|
45 |
apply (rule_tac P = "B | ~B" in notE)
|
|
|
46 |
apply assumption
|
|
|
47 |
apply (rule disjI2)
|
|
|
48 |
apply assumption
|
|
|
49 |
done
|
|
|
50 |
|
|
|
51 |
lemma
|
|
|
52 |
assumes "!!A. ~ ~A ==> A"
|
|
|
53 |
shows "B | ~B"
|
|
26682
|
54 |
apply (rule assms)
|
|
19819
|
55 |
apply (rule notI)
|
|
|
56 |
apply (rule notE)
|
|
|
57 |
apply (rule_tac [2] notI)
|
|
|
58 |
apply (erule_tac [2] notE)
|
|
|
59 |
apply (erule_tac [2] disjI1)
|
|
|
60 |
apply (rule notI)
|
|
|
61 |
apply (erule notE)
|
|
|
62 |
apply (erule disjI2)
|
|
|
63 |
done
|
|
|
64 |
|
|
|
65 |
|
|
|
66 |
lemma
|
|
|
67 |
assumes "A | ~A"
|
|
|
68 |
and "~ ~A"
|
|
|
69 |
shows A
|
|
|
70 |
apply (rule disjE)
|
|
26682
|
71 |
apply (rule assms)
|
|
19819
|
72 |
apply assumption
|
|
|
73 |
apply (rule FalseE)
|
|
|
74 |
apply (rule_tac P = "~A" in notE)
|
|
26682
|
75 |
apply (rule assms)
|
|
19819
|
76 |
apply assumption
|
|
|
77 |
done
|
|
|
78 |
|
|
|
79 |
|
|
|
80 |
subsection "Examples with quantifiers"
|
|
|
81 |
|
|
|
82 |
lemma
|
|
|
83 |
assumes "ALL z. G(z)"
|
|
|
84 |
shows "ALL z. G(z)|H(z)"
|
|
|
85 |
apply (rule allI)
|
|
|
86 |
apply (rule disjI1)
|
|
26682
|
87 |
apply (rule assms [THEN spec])
|
|
19819
|
88 |
done
|
|
|
89 |
|
|
|
90 |
lemma "ALL x. EX y. x=y"
|
|
|
91 |
apply (rule allI)
|
|
|
92 |
apply (rule exI)
|
|
|
93 |
apply (rule refl)
|
|
|
94 |
done
|
|
|
95 |
|
|
|
96 |
lemma "EX y. ALL x. x=y"
|
|
|
97 |
apply (rule exI)
|
|
|
98 |
apply (rule allI)
|
|
|
99 |
apply (rule refl)?
|
|
|
100 |
oops
|
|
|
101 |
|
|
|
102 |
text {* Parallel lifting example. *}
|
|
|
103 |
lemma "EX u. ALL x. EX v. ALL y. EX w. P(u,x,v,y,w)"
|
|
|
104 |
apply (rule exI allI)
|
|
|
105 |
apply (rule exI allI)
|
|
|
106 |
apply (rule exI allI)
|
|
|
107 |
apply (rule exI allI)
|
|
|
108 |
apply (rule exI allI)
|
|
|
109 |
oops
|
|
|
110 |
|
|
|
111 |
lemma
|
|
|
112 |
assumes "(EX z. F(z)) & B"
|
|
|
113 |
shows "EX z. F(z) & B"
|
|
|
114 |
apply (rule conjE)
|
|
26682
|
115 |
apply (rule assms)
|
|
19819
|
116 |
apply (rule exE)
|
|
|
117 |
apply assumption
|
|
|
118 |
apply (rule exI)
|
|
|
119 |
apply (rule conjI)
|
|
|
120 |
apply assumption
|
|
|
121 |
apply assumption
|
|
|
122 |
done
|
|
|
123 |
|
|
|
124 |
text {* A bigger demonstration of quantifiers -- not in the paper. *}
|
|
|
125 |
lemma "(EX y. ALL x. Q(x,y)) --> (ALL x. EX y. Q(x,y))"
|
|
|
126 |
apply (rule impI)
|
|
|
127 |
apply (rule allI)
|
|
|
128 |
apply (rule exE, assumption)
|
|
|
129 |
apply (rule exI)
|
|
|
130 |
apply (rule allE, assumption)
|
|
|
131 |
apply assumption
|
|
|
132 |
done
|
|
|
133 |
|
|
|
134 |
end
|