src/HOL/Ctr_Sugar.thy
author wenzelm
Thu, 06 Mar 2014 22:15:01 +0100
changeset 55965 0c2c61a87a7d
parent 55468 98b25c51e9e5
child 55971 7644d63e8c3f
permissions -rw-r--r--
merged
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
54397
f4b4fa25ce56 tuned headers
blanchet
parents: 54396
diff changeset
     1
(*  Title:      HOL/Ctr_Sugar.thy
49486
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
     2
    Author:     Jasmin Blanchette, TU Muenchen
55160
2d69438b1b0c added Dmitriy, since he did the case syntax
blanchet
parents: 54701
diff changeset
     3
    Author:     Dmitriy Traytel, TU Muenchen
54397
f4b4fa25ce56 tuned headers
blanchet
parents: 54396
diff changeset
     4
    Copyright   2012, 2013
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
     5
51797
182454c06a80 tuned ML and thy file names
blanchet
parents: 51781
diff changeset
     6
Wrapping existing freely generated type's constructors.
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
     7
*)
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
     8
51797
182454c06a80 tuned ML and thy file names
blanchet
parents: 51781
diff changeset
     9
header {* Wrapping Existing Freely Generated Type's Constructors *}
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
    10
54006
9fe1bd54d437 renamed theory file
blanchet
parents: 52969
diff changeset
    11
theory Ctr_Sugar
54398
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    12
imports HOL
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
    13
keywords
54398
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    14
  "print_case_translations" :: diag and
55468
98b25c51e9e5 renamed 'wrap_free_constructors' to 'free_constructors' (cf. 'functor', 'bnf', etc.)
blanchet
parents: 55160
diff changeset
    15
  "free_constructors" :: thy_goal
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
    16
begin
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
    17
54398
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    18
consts
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    19
  case_guard :: "bool \<Rightarrow> 'a \<Rightarrow> ('a \<Rightarrow> 'b) \<Rightarrow> 'b"
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    20
  case_nil :: "'a \<Rightarrow> 'b"
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    21
  case_cons :: "('a \<Rightarrow> 'b) \<Rightarrow> ('a \<Rightarrow> 'b) \<Rightarrow> 'a \<Rightarrow> 'b"
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    22
  case_elem :: "'a \<Rightarrow> 'b \<Rightarrow> 'a \<Rightarrow> 'b"
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    23
  case_abs :: "('c \<Rightarrow> 'b) \<Rightarrow> 'b"
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    24
declare [[coercion_args case_guard - + -]]
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    25
declare [[coercion_args case_cons - -]]
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    26
declare [[coercion_args case_abs -]]
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    27
declare [[coercion_args case_elem - +]]
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    28
54701
4ed7454aebde tuning -- moved ML files to subdirectory
blanchet
parents: 54626
diff changeset
    29
ML_file "Tools/Ctr_Sugar/case_translation.ML"
54398
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    30
setup Case_Translation.setup
100c0eaf63d5 moved 'Ctr_Sugar' further up the theory hierarchy, so that 'Datatype' can use it
blanchet
parents: 54397
diff changeset
    31
49312
c874ff5658dc moved theorems closer to where they are used
blanchet
parents: 49309
diff changeset
    32
lemma iffI_np: "\<lbrakk>x \<Longrightarrow> \<not> y; \<not> x \<Longrightarrow> y\<rbrakk> \<Longrightarrow> \<not> x \<longleftrightarrow> y"
c874ff5658dc moved theorems closer to where they are used
blanchet
parents: 49309
diff changeset
    33
by (erule iffI) (erule contrapos_pn)
c874ff5658dc moved theorems closer to where they are used
blanchet
parents: 49309
diff changeset
    34
49486
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
    35
lemma iff_contradict:
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
    36
"\<not> P \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> Q \<Longrightarrow> R"
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
    37
"\<not> Q \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> P \<Longrightarrow> R"
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
    38
by blast+
64cc57c0d0fe generate "expand" property
blanchet
parents: 49312
diff changeset
    39
54701
4ed7454aebde tuning -- moved ML files to subdirectory
blanchet
parents: 54626
diff changeset
    40
ML_file "Tools/Ctr_Sugar/ctr_sugar_util.ML"
4ed7454aebde tuning -- moved ML files to subdirectory
blanchet
parents: 54626
diff changeset
    41
ML_file "Tools/Ctr_Sugar/ctr_sugar_tactics.ML"
4ed7454aebde tuning -- moved ML files to subdirectory
blanchet
parents: 54626
diff changeset
    42
ML_file "Tools/Ctr_Sugar/ctr_sugar_code.ML"
4ed7454aebde tuning -- moved ML files to subdirectory
blanchet
parents: 54626
diff changeset
    43
ML_file "Tools/Ctr_Sugar/ctr_sugar.ML"
49309
f20b24214ac2 split basic BNFs into really basic ones and others, and added Andreas Lochbihler's "option" BNF
blanchet
parents: 49286
diff changeset
    44
49075
ed769978dc8d rearrange dependencies
blanchet
parents:
diff changeset
    45
end