begin
:: deftheorem Def1 defines with_VERUM HILBERT1:def 1 :
:: deftheorem Def2 defines with_implication HILBERT1:def 2 :
:: deftheorem Def3 defines with_conjunction HILBERT1:def 3 :
:: deftheorem Def4 defines with_propositional_variables HILBERT1:def 4 :
:: deftheorem Def5 defines HP-closed HILBERT1:def 5 :
Lm1:
for D being set st D is HP-closed holds
not D is empty
:: deftheorem Def6 defines HP-WFF HILBERT1:def 6 :
:: deftheorem defines VERUM HILBERT1:def 7 :
:: deftheorem defines => HILBERT1:def 8 :
:: deftheorem defines '&' HILBERT1:def 9 :
:: deftheorem Def10 defines Hilbert_theory HILBERT1:def 10 :
:: deftheorem Def11 defines CnPos HILBERT1:def 11 :
:: deftheorem defines HP_TAUT HILBERT1:def 12 :
theorem Th1:
theorem Th2:
theorem Th3:
theorem Th4:
theorem Th5:
theorem Th6:
theorem Th7:
theorem Th8:
theorem Th9:
theorem Th10:
Lm2:
for X being Subset of HP-WFF holds CnPos (CnPos X) c= CnPos X
theorem
Lm3:
for X being Subset of HP-WFF holds CnPos X is Hilbert_theory
theorem Th12:
theorem
begin
theorem Th14:
theorem Th15:
theorem
theorem
theorem
theorem Th19:
theorem Th20:
theorem Th21:
theorem Th22:
theorem Th23:
Lm4:
for q, r, p, s being Element of HP-WFF holds (((q => r) => (p => r)) => s) => ((p => q) => s) in HP_TAUT
theorem Th24:
theorem
theorem Th26:
theorem Th27:
theorem
theorem Th29:
begin
theorem Th30:
theorem Th31:
theorem
theorem Th33:
theorem Th34:
theorem Th35:
theorem Th36:
theorem
theorem
theorem Th39:
theorem Th40:
theorem Th41:
theorem Th42:
theorem Th43:
theorem Th44:
theorem Th45:
theorem Th46:
theorem
theorem
Lm5:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => q in HP_TAUT
Lm6:
for p, q, s being Element of HP-WFF holds (((p '&' q) '&' s) '&' ((p '&' q) '&' s)) => (((p '&' q) '&' s) '&' q) in HP_TAUT
Lm7:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => (((p '&' q) '&' s) '&' q) in HP_TAUT
Lm8:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => (p '&' s) in HP_TAUT
Lm9:
for p, q, s being Element of HP-WFF holds (((p '&' q) '&' s) '&' q) => ((p '&' s) '&' q) in HP_TAUT
Lm10:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => ((p '&' s) '&' q) in HP_TAUT
Lm11:
for p, s, q being Element of HP-WFF holds ((p '&' s) '&' q) => ((s '&' p) '&' q) in HP_TAUT
Lm12:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => ((s '&' p) '&' q) in HP_TAUT
Lm13:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => ((s '&' q) '&' p) in HP_TAUT
Lm14:
for p, q, s being Element of HP-WFF holds ((p '&' q) '&' s) => (p '&' (s '&' q)) in HP_TAUT
Lm15:
for p, s, q being Element of HP-WFF holds (p '&' (s '&' q)) => (p '&' (q '&' s)) in HP_TAUT
theorem
Lm16:
for p, q, s being Element of HP-WFF holds (p '&' (q '&' s)) => ((s '&' q) '&' p) in HP_TAUT
Lm17:
for s, q, p being Element of HP-WFF holds ((s '&' q) '&' p) => ((q '&' s) '&' p) in HP_TAUT
Lm18:
for p, q, s being Element of HP-WFF holds (p '&' (q '&' s)) => ((q '&' s) '&' p) in HP_TAUT
Lm19:
for p, q, s being Element of HP-WFF holds (p '&' (q '&' s)) => ((p '&' s) '&' q) in HP_TAUT
Lm20:
for p, q, s being Element of HP-WFF holds (p '&' (q '&' s)) => (p '&' (s '&' q)) in HP_TAUT
theorem