src/Tools/Code/code_target.ML
changeset 62969 9f394a16c557
parent 62550 f1baa15a6a0c
child 63024 adeac19dd410
equal deleted inserted replaced
62968:4e4738698db4 62969:9f394a16c557
   102   (cert_class ctxt class, cert_tyco ctxt tyco);
   102   (cert_class ctxt class, cert_tyco ctxt tyco);
   103 
   103 
   104 fun read_inst ctxt (raw_tyco, raw_class) =
   104 fun read_inst ctxt (raw_tyco, raw_class) =
   105   (read_tyco ctxt raw_tyco, Proof_Context.read_class ctxt raw_class);
   105   (read_tyco ctxt raw_tyco, Proof_Context.read_class ctxt raw_class);
   106 
   106 
   107 val parse_inst_ident = Parse.xname --| @{keyword "::"} -- Parse.class;
   107 val parse_inst_ident = Parse.name --| @{keyword "::"} -- Parse.class;
   108 
   108 
   109 fun cert_syms ctxt =
   109 fun cert_syms ctxt =
   110   Code_Symbol.map_attr (apfst (cert_const ctxt)) (apfst (cert_tyco ctxt))
   110   Code_Symbol.map_attr (apfst (cert_const ctxt)) (apfst (cert_tyco ctxt))
   111     (apfst (cert_class ctxt)) ((apfst o apply2) (cert_class ctxt)) (apfst (cert_inst ctxt)) I;
   111     (apfst (cert_class ctxt)) ((apfst o apply2) (cert_class ctxt)) (apfst (cert_inst ctxt)) I;
   112 
   112