src/HOL/Main.thy
author haftmann
Sat Sep 10 10:29:24 2011 +0200 (2011-09-10)
changeset 44860 56101fa00193
parent 44324 d972b91ed09d
child 44918 6a80fbc4e72c
permissions -rw-r--r--
renamed theory Complete_Lattice to Complete_Lattices, in accordance with Lattices, Orderings etc.
wenzelm@12024
     1
header {* Main HOL *}
wenzelm@12024
     2
nipkow@15131
     3
theory Main
bulwahn@42695
     4
imports Plain Predicate_Compile Nitpick
nipkow@15131
     5
begin
wenzelm@9650
     6
wenzelm@29304
     7
text {*
wenzelm@29304
     8
  Classical Higher-order Logic -- only ``Main'', excluding real and
wenzelm@29304
     9
  complex numbers etc.
wenzelm@29304
    10
*}
wenzelm@29304
    11
haftmann@27367
    12
text {* See further \cite{Nipkow-et-al:2002:tutorial} *}
haftmann@25964
    13
haftmann@44324
    14
text {* Compatibility layer -- to be dropped *}
haftmann@44324
    15
haftmann@44324
    16
lemma Inf_bool_def:
haftmann@44324
    17
  "Inf A \<longleftrightarrow> (\<forall>x\<in>A. x)"
haftmann@44324
    18
  by (auto intro: bool_induct)
haftmann@44324
    19
haftmann@44324
    20
lemma Sup_bool_def:
haftmann@44324
    21
  "Sup A \<longleftrightarrow> (\<exists>x\<in>A. x)"
haftmann@44324
    22
  by auto
haftmann@44324
    23
haftmann@44860
    24
declare Complete_Lattices.Inf_bool_def [simp del]
haftmann@44860
    25
declare Complete_Lattices.Sup_bool_def [simp del]
haftmann@44324
    26
wenzelm@9650
    27
end