src/Pure/Isar/spec_rules.ML
changeset 67649 1e1782c1aedf
parent 61060 a2c6f7f64aca
child 69991 6b097aeb3650
equal deleted inserted replaced
67648:f6e351043014 67649:1e1782c1aedf
    55 
    55 
    56 (* retrieve *)
    56 (* retrieve *)
    57 
    57 
    58 fun retrieve_generic context =
    58 fun retrieve_generic context =
    59   Item_Net.retrieve (Rules.get context)
    59   Item_Net.retrieve (Rules.get context)
    60   #> (map o apsnd o apsnd o map) (Thm.transfer (Context.theory_of context));
    60   #> (map o apsnd o apsnd o map) (Thm.transfer'' context);
    61 
    61 
    62 val retrieve = retrieve_generic o Context.Proof;
    62 val retrieve = retrieve_generic o Context.Proof;
    63 val retrieve_global = retrieve_generic o Context.Theory;
    63 val retrieve_global = retrieve_generic o Context.Theory;
    64 
    64 
    65 
    65