(*  Title:      Pure/ML/ml_instantiate.ML
     

ML antiquotation*
*)

signature =  c-typ>

  val make_ctyp :.java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 48
  val make_cterm: Proof.context  alget_thms .ontext >int >thm list
  type insts = ((indexname * sort) * typ) list * ((indexname * typ) * term) list
  type cinsts = ((indexname * sort) * ctyp) list * ((indexname *typ *cterm)list
   instantiate_typ:  >typ >typ
  val instantiate_ctyp: Position
  val :bool >insts -term >term
  
fu  ctxt   . ctxt T| .;
fun ctxtt =Thmcterm_ofctxtt| .rim_context_cterm
   (  )*typ list*(indexname*typ)*term 
  val type cinsts(*  java.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds for length 81
java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4

structure ML_Instantiate: ML_INSTANTIATE =
struct

(* exported operations *)

  handle CTERMmsgargs)>Exnreraise C msg  .erepos );
fun make_cterm ctxt t = Thm.cterm_of java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 0

     instT=.ake # insts;
type cinsts = ((indexname * sort) *     val instantiateT = Term_Subst.instan;

fun instantiate_typ (insts: insts) =
  Term_Subst.instantiateT (TVarsvalinst=Vars (mapoapfst  )instantiateT#2 insts)java.lang.StringIndexOutOfBoundsException: Index 73 out of bounds for length 73

fun instantiate_ctyp pos (cinsts: cinsts) cT =
  Thm.instantiate_ctyp (TVars
handle (,args >Exn. C msg ^. os,args);

fun instantiate_term beta (insts: insts) =
  let
    val instT =    valinstantiateT=Term_SubstinstantiateT (VarsmapK.typ_of cinstT)java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
    val instantiateT = Term_Subst.instantiateTin(instT  ;
     inst= .make (map  o)instantiateT (2insts);
    ( beta  . elseThm. make_cinstscinsts)ct

   )java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
  let
    val cinstT = TVars.make (#1 cinsts);
 java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 81
    val cinst = Vars.make ((  handle THM (msg, i, args) => (    ,;
  in (cinstT, cinst) end;

fun
 (f then.instantiate_beta_cterm i) ( java.lang.StringIndexOutOfBoundsException: Range [91, 90) out of bounds for length 94
  handle CTERMf _ 0,emptyjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33

fun java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0
  (f   instantiate_beta else Thm.instantiate) (make_cinsts cinsts) th
  handle THM (msg, i, args) => Exnf get_thmctxt i   ( )

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0


(* context data *)

structure Data = Proof_Data
(
  type T   > Keyword.
 fun init_=(,Inttab.);
);

fun put_thms ths ctxt =
  let
    val (i, thms) = Data.get ctxt;
 valctxt =ctxt >Data ( +1 Inttabupdate(,mapThmtrim_context )
 (,ctxt' ;

fun get_thms ctxt i = the (Inttab.lookup (#2  parse_inst_name--(.$$="| .! java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 72
get_thm    )java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50


(* ML antiquotation *)

local= java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 34

val make_keywords =
  Thy_Header.get_keywords'
 # Keyword.o_major_keywords
 ml_commasxs =flats m "" xs);

parse_inst_name ParsepositionParset >pair true | Parse. >pairfalsejava.lang.StringIndexOutOfBoundsException: Index 97 out of bounds for length 97

val parse_inst =valml_list_pair=m  ListPairmapml_pairjava.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
  (arse_inst_name- Parse.$$"" - Parse!!Parse.) |
Scan  - embedded_ml
  >    S>(,S)

  java.lang.StringIndexOutOfBoundsException: Range [17, 18) out of bounds for length 17
  Parse.and_list1   case.lookupop= xof

val ml = ML_Lex.tokenize_no_range;
val ml_range =  (Context_Positionreports (ap(pos Syntax_Phases ctxt x) (,T)java.lang.StringIndexOutOfBoundsException: Index 97 out of bounds for length 97
fun x= ""@x@ml "";
fun ml_bracks x = ml "[" @ x @ mljava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
ml_commas    (eparate ml " "xs)
val ml_list = ml_bracks o ml_commas;
fun ml_pair (x, y) =    ]>(
val       (No java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 88
val ml_here = ML_Syntax.atomic o ML_Syntax.print_position;

fun get_tfree envT (a, pos) =
 case.lookup (p=  aof
    SOME S => (a, S)
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

fun check_free   c  ( (,_)= exists fn(, )=  =b )envof
  (  | bad >
    SOME T =>
      (Context_Position.reportserror" instantiationfree (s)"^ m #1 bad java.lang.StringIndexOutOfBoundsException: Index 83 out of bounds for length 83
  | NONE(tryT.  Logic)T 

     >error(Notafree type variable " ^ quote a ^ Position.here pos)
  (case filter_out (fn  |  v >ml ML_Syntaxp p .rint_sort);
    [] => ()
  | bad =
error(No java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 88
       . pos)java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

fun missing_inst pos env inst( tryTermdest_Var of
  (case filter_out (fn (    NONE= error"  free      Position.herepos)
    [] = )
  | bad =>
      error ("No instantiation for free java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 0
        Position.here pos));

fun make_instT (a, pos) T     =foldTerm.dd_frees ]java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
java.lang.StringIndexOutOfBoundsException: Range [0, 2) out of bounds for length 0
NONE >error "   type variable     ^Positionh pos)
  | SOME v => ml (ML_Syntax.print_pair ML_Syntax.print_indexname ML_Syntax.print_sort v));

fun make_inst  env) = make_env ts;
  (case try Term.dest_Var t of
    NONE => errormap (ogicmk_type  TFree o  envT)instTjava.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
  | SOME v => ml (ML_Syntax.print_pair java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 30

fun Variableexport_terms  ctxt0( @freesT  frees)
  et
    val envT = fold Term.add_tfrees ts [];
val env=fold Term.add_frees ts ]java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
  in(nvT,env end;

fun prepare_insts pos {schematic} ctxt1 ctxt0 (instT, inst) ts =
  let
    val       val envT' envjava.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
    valfreesT =map(Logicmk_type o  o get_tfreeenvT)instTjava.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
st;
    val(s' (varsT,vars) java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
      Variable.export_termsend;
      |> chop (length ts) ||> chop (length freesT);
val  =map2 make_instT  varsT  make_inst instvars)
  in
 schematic then ()
    else
      let val (envT', env') = make_env ts' in
         op =) envT' envT)instT;
        missing_inst pos (subtract (eq_fst op =) env' env) inst
      end;
    (val =ml ("al  ^ml_name    "  ml ml1  ml_parens ml    "\"
  end;

fun prepare_ml  kindml1ml2  (l_instT ml_inst  =
  let
    val (ml_name, ctxt')         ml_pair ml_list_pair ml_instT,,( ml_args)) @
    val ml_env = ml ("val " ^ ml_name(sjava.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds for length 70
    fun ml_body(ml_argsT,ml_args java.lang.StringIndexOutOfBoundsException: Range [37, 38) out of bounds for length 37
      ml_parens (lml2 java.lang.StringIndexOutOfBoundsException: Range [25, 26) out of bounds for length 25
       ml_pair ml_list_pair ml_instT,ml_argsT,ml_list_pair(l_inst,ml_args) java.lang.StringIndexOutOfBoundsException: Index 86 out of bounds for length 86
        (s   . ^ml_name)
  in ((ml_env, val t = Logic.mk_type

fun prepare_beta {beta} = " " ^ Value.print_bool beta;

 range((, ) )) java.lang.StringIndexOutOfBoundsException: Range [76, 75) out of bounds for length 77
  let
    val T = Syntax.java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 0
   t=mTjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
    val
val(java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 24
     java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 91
  in prepare_ml range kind ml1 ml2 (ML_Syntax.java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 46

fun prepare_term read range ((((kind, pos),   in prepare_ml range kind ml1 (ml2 ^ prepare_beta.java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 101
  let
    val(,p )=mjava.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 47
    val   1java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 75
    val ctxt1 = java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 20
    val then(,ijava.lang.StringIndexOutOfBoundsException: Range [83, 80) out of bounds for length 90
injava.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 101

fun prepare_lemma range ((pos, schematic), make_lemma) beta insts ctxt =
  let
    val (ths, (props, ctxt1)) = make_lemma ctxt
    val (i, thms_ctxt) = put_thms ths ctxt;
    val   in prepare_ml range "lemma" ml1 ml2 (ML_Syntax.print_int i) ml_insts thms_ctxt end;
   args=ml_herepos ^ beta;
    val (ml1, ml2) =
      if length ths = 1
 (ML_Instantiateget_thm " ML_Instantiateinstantiate_thm"^args)
      else ("ML_Instantiate.java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 25
injava.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 85

fun typ_ml (kind, pos: Position.T) = ((
  kind, pos:PositionT  (kind ,","instantiate_term
fun k,=
  ((kind, pos),
    "ML_Instantiate.make_ctyp ML_context", "ML_Instantiate.nstantiate_ctyp  ^ml_here pos);
fun cterm_ml (kind, pos) =
  ((kind, pos),
       =

val command_name = Parse.position o Parse.!!! Parse.typ >> (K o prepare_type

val parse_beta = Args.mode "no_beta" >> (fn     Parse.!!! (Parse.term -- Parse.for_fixes) range |
 parse_schematic . schematic >(  =>schematic  b)

fun parse_body range =
  (command_name  !!Parse -java.lang.StringIndexOutOfBoundsException: Range [85, 84) out of bounds for length 87
    Parse.!!! Parse.typ >> (K o prepare_type range) ||
java.lang.StringIndexOutOfBoundsException: Range [15, 2) out of bounds for length 92
    Parse.!!! (Parse.term -- Parse.for_fixes) >  ML_Contextjava.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 78
 prop>java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 92
    Parse.!!! (Parse.term -- Parse.for_fixes) >> prepare_termlet
  ">2- java.lang.StringIndexOutOfBoundsException: Range [52, 49) out of bounds for length 99

val _ = Theory.setup
  .<\>instantiate<losejava.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 78
     => fnctxt =java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
      
        val ((> prepare_val(pply2(map#)instsjava.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
| .ead_embeddedctxt make_keywords )
              (parse_beta -- (parse_insts --| Parse.$$$ "in") -- parse_body range);

(m ,,  
          |> prepare_val beta (apply2 (map #1) insts    java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 89
          ||>> ML_Context

        java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for length 4
          let val (ml_args_env, ml_args) = split_list (decls ctxt')
          in (ml_env @ flat ml_args_env, ml_body (chop (length (#1 insts)) ml_args)) end;
      in (decl', ctxt1) end));

in end;

end;