Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Import/Import_Setup.thy
author haftmann
Sat, 05 Jul 2014 11:01:53 +0200
changeset 57514 bdc2c6b40bf2
parent 48891 c0eafbd55de3
child 58770 ae5e9b4f8daf
permissions -rw-r--r--
prefer ac_simps collections over separate name bindings for add and mult
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
47258
880e587eee9f Modernized HOL-Import for HOL Light
Cezary Kaliszyk <cezarykaliszyk@gmail.com>
parents:
diff changeset 
     1
 
(*  Title:      HOL/Import/Import_Setup.thy
880e587eee9f Modernized HOL-Import for HOL Light
Cezary Kaliszyk <cezarykaliszyk@gmail.com>
parents:
diff changeset 
     2
 
    Author:     Cezary Kaliszyk, University of Innsbruck
880e587eee9f Modernized HOL-Import for HOL Light
Cezary Kaliszyk <cezarykaliszyk@gmail.com>
parents:
diff changeset 
     3
 
    Author:     Alexander Krauss, QAware GmbH
880e587eee9f Modernized HOL-Import for HOL Light
Cezary Kaliszyk <cezarykaliszyk@gmail.com>
parents:
diff changeset 
     4
 
*)
880e587eee9f Modernized HOL-Import for HOL Light
Cezary Kaliszyk <cezarykaliszyk@gmail.com>
parents:
diff changeset 
     5
 












880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




     6


header {* Importer machinery and required theorems *}













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




     7














880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




     8


theory Import_Setup













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




     9


imports "~~/src/HOL/Parity" "~~/src/HOL/Fact"








48891






c0eafbd55de3
prefer ML_file over old uses;



wenzelm


parents: 
47258

diff
changeset




    10


keywords "import_type_map" "import_const_map" "import_file" :: thy_decl








47258






880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    11


begin













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    12









48891






c0eafbd55de3
prefer ML_file over old uses;



wenzelm


parents: 
47258

diff
changeset




    13


ML_file "import_data.ML"













c0eafbd55de3
prefer ML_file over old uses;



wenzelm


parents: 
47258

diff
changeset




    14









47258






880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    15


lemma light_ex_imp_nonempty:













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    16


  "P t \<Longrightarrow> \<exists>x. x \<in> Collect P"













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    17


  by auto













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    18














880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    19


lemma typedef_hol2hollight:













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    20


  assumes a: "type_definition Rep Abs (Collect P)"













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    21


  shows "Abs (Rep a) = a \<and> P r = (Rep (Abs r) = r)"













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    22


  by (metis type_definition.Rep_inverse type_definition.Abs_inverse













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    23


      type_definition.Rep a mem_Collect_eq)













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    24














880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    25


lemma ext2:













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    26


  "(\<And>x. f x = g x) \<Longrightarrow> f = g"













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    27


  by auto













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    28









48891






c0eafbd55de3
prefer ML_file over old uses;



wenzelm


parents: 
47258

diff
changeset




    29


ML_file "import_rule.ML"








47258






880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    30














880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    31


end













880e587eee9f
Modernized HOL-Import for HOL Light



Cezary Kaliszyk <cezarykaliszyk@gmail.com>


parents: 

diff
changeset




    32
















isabelle