author | blanchet |
Wed, 12 Sep 2012 06:27:48 +0200 | |
changeset 49312 | c874ff5658dc |
parent 49309 | f20b24214ac2 |
child 49486 | 64cc57c0d0fe |
permissions | -rw-r--r-- |
49075 | 1 |
(* Title: HOL/Codatatype/BNF_Wrap.thy |
2 |
Author: Dmitriy Traytel, TU Muenchen |
|
3 |
Copyright 2012 |
|
4 |
||
5 |
Wrapping datatypes. |
|
6 |
*) |
|
7 |
||
8 |
header {* Wrapping Datatypes *} |
|
9 |
||
10 |
theory BNF_Wrap |
|
49283 | 11 |
imports BNF_Util |
49075 | 12 |
keywords |
49286 | 13 |
"wrap_data" :: thy_goal and |
49278 | 14 |
"no_dests" |
49075 | 15 |
begin |
16 |
||
49312 | 17 |
lemma iffI_np: "\<lbrakk>x \<Longrightarrow> \<not> y; \<not> x \<Longrightarrow> y\<rbrakk> \<Longrightarrow> \<not> x \<longleftrightarrow> y" |
18 |
by (erule iffI) (erule contrapos_pn) |
|
19 |
||
49309
f20b24214ac2
split basic BNFs into really basic ones and others, and added Andreas Lochbihler's "option" BNF
blanchet
parents:
49286
diff
changeset
|
20 |
ML_file "Tools/bnf_wrap_tactics.ML" |
f20b24214ac2
split basic BNFs into really basic ones and others, and added Andreas Lochbihler's "option" BNF
blanchet
parents:
49286
diff
changeset
|
21 |
ML_file "Tools/bnf_wrap.ML" |
f20b24214ac2
split basic BNFs into really basic ones and others, and added Andreas Lochbihler's "option" BNF
blanchet
parents:
49286
diff
changeset
|
22 |
|
49075 | 23 |
end |