src/HOL/BNF/BNF_Ctr_Sugar.thy
changeset 54006 9fe1bd54d437
parent 54005 132640f4c453
child 54007 07028b08045f
     1.1 --- a/src/HOL/BNF/BNF_Ctr_Sugar.thy	Tue Oct 01 12:53:24 2013 +0200
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,29 +0,0 @@
     1.4 -(*  Title:      HOL/BNF/BNF_Ctr_Sugar.thy
     1.5 -    Author:     Jasmin Blanchette, TU Muenchen
     1.6 -    Copyright   2012
     1.7 -
     1.8 -Wrapping existing freely generated type's constructors.
     1.9 -*)
    1.10 -
    1.11 -header {* Wrapping Existing Freely Generated Type's Constructors *}
    1.12 -
    1.13 -theory BNF_Ctr_Sugar
    1.14 -imports BNF_Util
    1.15 -keywords
    1.16 -  "wrap_free_constructors" :: thy_goal and
    1.17 -  "no_discs_sels" and
    1.18 -  "rep_compat"
    1.19 -begin
    1.20 -
    1.21 -lemma iffI_np: "\<lbrakk>x \<Longrightarrow> \<not> y; \<not> x \<Longrightarrow> y\<rbrakk> \<Longrightarrow> \<not> x \<longleftrightarrow> y"
    1.22 -by (erule iffI) (erule contrapos_pn)
    1.23 -
    1.24 -lemma iff_contradict:
    1.25 -"\<not> P \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> Q \<Longrightarrow> R"
    1.26 -"\<not> Q \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> P \<Longrightarrow> R"
    1.27 -by blast+
    1.28 -
    1.29 -ML_file "Tools/bnf_ctr_sugar_tactics.ML"
    1.30 -ML_file "Tools/bnf_ctr_sugar.ML"
    1.31 -
    1.32 -end