isabelle: src/HOLCF/One.thy@4a83dd540b88 (annotated)

2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 2275 diff changeset	1	(* Title: HOLCF/One.thy
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	2	ID: $Id$
2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 2275 diff changeset	3	Author: Oscar Slotosch
16070 4a83dd540b88 removed LICENCE note -- everything is subject to Isabelle licence as wenzelm parents: 15577 diff changeset	4
4a83dd540b88 removed LICENCE note -- everything is subject to Isabelle licence as wenzelm parents: 15577 diff changeset	5	The unit domain.
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	6	*)
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	7
15577 e16da3068ad6 fix headers huffman parents: 15576 diff changeset	8	header {* The unit domain *}
e16da3068ad6 fix headers huffman parents: 15576 diff changeset	9
e16da3068ad6 fix headers huffman parents: 15576 diff changeset	10	theory One
e16da3068ad6 fix headers huffman parents: 15576 diff changeset	11	imports Lift
e16da3068ad6 fix headers huffman parents: 15576 diff changeset	12	begin
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	13
15576 efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	14	types one = "unit lift"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	15
3717 e28553315355 eliminated rules; wenzelm parents: 2640 diff changeset	16	constdefs
e28553315355 eliminated rules; wenzelm parents: 2640 diff changeset	17	ONE :: "one"
e28553315355 eliminated rules; wenzelm parents: 2640 diff changeset	18	"ONE == Def ()"
2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 2275 diff changeset	19
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 2275 diff changeset	20	translations
3717 e28553315355 eliminated rules; wenzelm parents: 2640 diff changeset	21	"one" <= (type) "unit lift"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	22
15576 efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	23	(* ------------------------------------------------------------------------ *)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	24	(* Exhaustion and Elimination for type one *)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	25	(* ------------------------------------------------------------------------ *)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	26
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	27	lemma Exh_one: "t=UU \| t = ONE"
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	28	apply (unfold ONE_def)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	29	apply (induct t)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	30	apply simp
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	31	apply simp
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	32	done
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	33
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	34	lemma oneE: "[\| p=UU ==> Q; p = ONE ==>Q\|] ==>Q"
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	35	apply (rule Exh_one [THEN disjE])
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	36	apply fast
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	37	apply fast
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	38	done
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	39
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	40	lemma dist_less_one [simp]: "~ONE << UU"
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	41	apply (unfold ONE_def)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	42	apply (simp add: inst_lift_po)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	43	done
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	44
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	45	lemma dist_eq_one [simp]: "ONE~=UU" "UU~=ONE"
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	46	apply (unfold ONE_def)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	47	apply (simp_all add: inst_lift_po)
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	48	done
efb95d0d01f7 converted to new-style theories, and combined numbered files huffman parents: 14981 diff changeset	49
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	50	end

author	wenzelm
	Wed, 25 May 2005 09:44:34 +0200
changeset 16070	4a83dd540b88
parent 15577	e16da3068ad6
child 16747	934b6b36d794
permissions	-rw-r--r--