src/HOL/Product_Type.ML
author wenzelm
Sat, 29 May 2004 16:47:06 +0200
changeset 14846 b1fcade3880b
parent 11838 02d75712061d
permissions -rw-r--r--
\<^bsub>/\<^esub> syntax: unbreakable block;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
11838
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     1
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     2
(* legacy ML bindings *)
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     3
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     4
val Collect_split = thm "Collect_split";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     5
val Compl_Times_UNIV1 = thm "Compl_Times_UNIV1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     6
val Compl_Times_UNIV2 = thm "Compl_Times_UNIV2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     7
val PairE = thm "PairE";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     8
val PairE_lemma = thm "PairE_lemma";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
     9
val Pair_Rep_inject = thm "Pair_Rep_inject";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    10
val Pair_def = thm "Pair_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    11
val Pair_eq = thm "Pair_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    12
val Pair_fst_snd_eq = thm "Pair_fst_snd_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    13
val Pair_inject = thm "Pair_inject";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    14
val ProdI = thm "ProdI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    15
val SetCompr_Sigma_eq = thm "SetCompr_Sigma_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    16
val SigmaD1 = thm "SigmaD1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    17
val SigmaD2 = thm "SigmaD2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    18
val SigmaE = thm "SigmaE";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    19
val SigmaE2 = thm "SigmaE2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    20
val SigmaI = thm "SigmaI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    21
val Sigma_Diff_distrib1 = thm "Sigma_Diff_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    22
val Sigma_Diff_distrib2 = thm "Sigma_Diff_distrib2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    23
val Sigma_Int_distrib1 = thm "Sigma_Int_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    24
val Sigma_Int_distrib2 = thm "Sigma_Int_distrib2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    25
val Sigma_Un_distrib1 = thm "Sigma_Un_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    26
val Sigma_Un_distrib2 = thm "Sigma_Un_distrib2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    27
val Sigma_Union = thm "Sigma_Union";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    28
val Sigma_def = thm "Sigma_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    29
val Sigma_empty1 = thm "Sigma_empty1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    30
val Sigma_empty2 = thm "Sigma_empty2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    31
val Sigma_mono = thm "Sigma_mono";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    32
val The_split = thm "The_split";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    33
val The_split_eq = thm "The_split_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    34
val The_split_eq = thm "The_split_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    35
val Times_Diff_distrib1 = thm "Times_Diff_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    36
val Times_Int_distrib1 = thm "Times_Int_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    37
val Times_Un_distrib1 = thm "Times_Un_distrib1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    38
val Times_eq_cancel2 = thm "Times_eq_cancel2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    39
val Times_subset_cancel2 = thm "Times_subset_cancel2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    40
val UNIV_Times_UNIV = thm "UNIV_Times_UNIV";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    41
val UN_Times_distrib = thm "UN_Times_distrib";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    42
val Unity_def = thm "Unity_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    43
val cond_split_eta = thm "cond_split_eta";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    44
val fst_conv = thm "fst_conv";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    45
val fst_def = thm "fst_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    46
val fst_eqD = thm "fst_eqD";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    47
val inj_on_Abs_Prod = thm "inj_on_Abs_Prod";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    48
val injective_fst_snd = thm "injective_fst_snd";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    49
val mem_Sigma_iff = thm "mem_Sigma_iff";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    50
val mem_splitE = thm "mem_splitE";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    51
val mem_splitI = thm "mem_splitI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    52
val mem_splitI2 = thm "mem_splitI2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    53
val prod_eqI = thm "prod_eqI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    54
val prod_fun = thm "prod_fun";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    55
val prod_fun_compose = thm "prod_fun_compose";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    56
val prod_fun_def = thm "prod_fun_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    57
val prod_fun_ident = thm "prod_fun_ident";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    58
val prod_fun_imageE = thm "prod_fun_imageE";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    59
val prod_fun_imageI = thm "prod_fun_imageI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    60
val prod_induct = thm "prod_induct";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    61
val snd_conv = thm "snd_conv";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    62
val snd_def = thm "snd_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    63
val snd_eqD = thm "snd_eqD";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    64
val split = thm "split";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    65
val splitD = thm "splitD";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    66
val splitD' = thm "splitD'";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    67
val splitE = thm "splitE";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    68
val splitE' = thm "splitE'";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    69
val splitE2 = thm "splitE2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    70
val splitI = thm "splitI";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    71
val splitI2 = thm "splitI2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    72
val splitI2' = thm "splitI2'";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    73
val split_Pair_apply = thm "split_Pair_apply";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    74
val split_beta = thm "split_beta";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    75
val split_conv = thm "split_conv";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    76
val split_def = thm "split_def";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    77
val split_eta = thm "split_eta";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    78
val split_eta_SetCompr = thm "split_eta_SetCompr";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    79
val split_eta_SetCompr2 = thm "split_eta_SetCompr2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    80
val split_paired_All = thm "split_paired_All";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    81
val split_paired_Ball_Sigma = thm "split_paired_Ball_Sigma";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    82
val split_paired_Bex_Sigma = thm "split_paired_Bex_Sigma";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    83
val split_paired_Ex = thm "split_paired_Ex";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    84
val split_paired_The = thm "split_paired_The";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    85
val split_paired_all = thm "split_paired_all";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    86
val split_part = thm "split_part";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    87
val split_split = thm "split_split";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    88
val split_split_asm = thm "split_split_asm";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    89
val split_tupled_all = thms "split_tupled_all";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    90
val split_weak_cong = thm "split_weak_cong";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    91
val surj_pair = thm "surj_pair";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    92
val surjective_pairing = thm "surjective_pairing";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    93
val unit_abs_eta_conv = thm "unit_abs_eta_conv";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    94
val unit_all_eq1 = thm "unit_all_eq1";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    95
val unit_all_eq2 = thm "unit_all_eq2";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    96
val unit_eq = thm "unit_eq";
02d75712061d got rid of ML proof scripts for Product_Type;
wenzelm
parents:
diff changeset
    97
val unit_induct = thm "unit_induct";