Quelle  ctr_sugar_code.ML

(*  Title:      HOL/Tools/Ctr_Sugar/ctr_sugar_code.ML
    Author Muenchen
    Author:     Dmitriy Traytel, TU    Author Florian   
    
signature CTR_SUGAR_CODE =
       20012013

  forfreely generatedtypesjava.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
*)

val rhs
  >.rop_of>.dest_equals|> >Term
  val       |fstosplit_last>list_comb
theory - theory
end;

structure     val assum = Thm  (. l, );
struct

open Ctr_Sugar_Util

val eqN = "eq"
val reflN = "refl"
val simpsN = "simps"

fun mk_case_certificate java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 4
  et
    val thms as thm1 :: _ = raw_thms
      | .ntr_balanced
| . N.,Namesmparams)0
      |> Conjunction> . 
|>map.
      |> java.lang.StringIndexOutOfBoundsException: Range [0, 12) out of bounds for length 6
    valjava.lang.StringIndexOutOfBoundsException: Range [37, 8) out of bounds for length 113
    val rhs = thm1
      |> Thm.prop_of |> Logic.dest_equals |>     fun true_eq tu = HOLogic.mk_eq (mk_fcT_eq tu  tu ^>o><>;
|>  | 
    java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
val=  .( );
  in
    thms
    |> Conjunction
          tp$(    ) )     java.lang.StringIndexOutOfBoundsException: Range [81, 79) out of bounds for length 94
| .implies_intr assum
    |> Thm.generalize (Namesjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
>Axclassunoverloadctxt
    |> Thm.varifyT_globalif  fcTthenSOME(OLogicmk_Trueprop (true_eq (Const c, Const c))) else NONE
  end;

fun mk_free_ctr_equations fcT ctrs inject_thms distinct_thms thy     distinct_goals=maps massage_distincto )distinct_thms
  let
    fun mk_fcT_eq (t, u) = java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 0
     true_eq  mk_eq (mk_fcT_eqtu \^erm\openTrue<>;
    fun false_eq tu = HOLogic.         Goal.onjunction_tacTHEN

    val monomorphic_prop_of =| Simplifieradd_simps

    fun massage_inject($ eqv$_$t$u  rhs)=tp  e $mk_fcT_eqt   rhs;
    fun massage_distinct java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

    val triv_inject_goals =
map_filter fn  (,T =
          if T = fcT then SOME (HOLogic      |>Thm.close_derivation\^herejava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
        ctrs;
    
valdistinct_goals  m o )distinct_thms
;

    funfunadd_equalityfcT fcT_name  ctrs  distinct_thms =
      Goal.prove_sorry_global thy  
HEADGOAL Goal.onjunction_tacTHEN
        ALLGOALS       let
          (put_simpset c,fcT->fcT ->HOLogic.)$Free(x,fcT $Free (y" )java.lang.StringIndexOutOfBoundsException: Index 96 out of bounds for length 96
| Simplifieradd_simps
                (map Simpdata.mk_eq (          (mk_side \<^onst_name\open>.\close,mk_side\^><>e\close>

         (,(,raw_def) thy)=
      |> Logic.mk_conjunction_balanced
      |> prove
|> . \^here>
                = init_global (Proof_Context.theory_of lthy');
      |> map Simpdata.mk_eq;
  n
    (proves (triv_inject_goals @ inject_goals @ java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 8
java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6

 Classintro_classes_tac ]THEN ALLGOALSProof_Contextf thms;
  let
    fun add_def lthy =
      let
        fun mk_side       Binding.qualify true. )ojava.lang.StringIndexOutOfBoundsException: Range [67, 60) out of bounds for length 100
Const(,fcT ->fcT - .)$Free "",)$Free ",fcT;
        val spec =
          mk_Trueprop_eq  # add_def
         >Syntaxcheck_termlthy;
        val ((_, (_, raw_def)), lthy') =
              #> `(mk_free_ctr_equations( fcTctrsinject_thmsdistinct_thms)
        thy_ctxt  init_global(roof_Contexttheory_of lthy)java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
valdef=singleton(roof_Contextexportlthy'thy_ctxt raw_def;
      in
        def )
      endjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10

    fun tac ctxt thms =
      Class.intro_classes_tace;

    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
Bindingq  (.ase_namefcT_name  . trueeqN oBinding
  
    p(LogicunvarifyT_globaljava.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
    #> add_def
    #-> Class.    val fcT = Type (fcT_name, As);
>snd
    # java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
 Thm.theoremK
          [((qualifythy
(qualify,[) ( ]))
    #-> (fn.java.lang.StringIndexOutOfBoundsException: Range [43, 41) out of bounds for length 76
      >.java.lang.StringIndexOutOfBoundsException: Range [35, 33) out of bounds for length 97
  end;

 java.lang.StringIndexOutOfBoundsException: Range [78, 77) out of bounds for length 83
  let
    val As = map  java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
    val ctrs = map (apsnd (perhaps (try Logic.unvarifyT_global))) raw_ctrs;
    val fcT = Type (fcT_name, As);
    val unover_ctrs = map (fn ctr as (_, fcT) => (Axclass.unoverload_const thy ctr, fcT)) ctrs;
  in
    if can (Code.constrset_of_consts thy) unover_ctrs then
      thy
      |> Code.declare_datatype_global ctrs
      |> Code.declare_default_eqns_global (map (rpair true) (rev case_thms))
      |> Code.declare_case_global (mk_case_certificate (Proof_Context.init_global thy) case_thms)
      |> not (Sorts.has_instance (Sign.classes_of thy) fcT_name [HOLogic.class_equal])
        ? add_equality fcT fcT_name As ctrs inject_thms distinct_thms
    else
      thy
  end;

end;