equal
deleted
inserted
replaced
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 |