src/Pure/variable.ML
changeset 22846 fb79144af9a3
parent 22711 0b18739c3e81
child 24694 54f06f7feefa
equal deleted inserted replaced
22845:5f9138bcb3d7 22846:fb79144af9a3
    77   Data {is_body = is_body, names = names, fixes = fixes, binds = binds,
    77   Data {is_body = is_body, names = names, fixes = fixes, binds = binds,
    78     type_occs = type_occs, constraints = constraints};
    78     type_occs = type_occs, constraints = constraints};
    79 
    79 
    80 structure Data = ProofDataFun
    80 structure Data = ProofDataFun
    81 (
    81 (
    82   val name = "Pure/variable";
       
    83   type T = data;
    82   type T = data;
    84   fun init thy =
    83   fun init thy =
    85     make_data (false, Name.context, [], Vartab.empty, Symtab.empty, (Vartab.empty, Vartab.empty));
    84     make_data (false, Name.context, [], Vartab.empty, Symtab.empty, (Vartab.empty, Vartab.empty));
    86   fun print _ _ = ();
       
    87 );
    85 );
    88 
       
    89 val _ = Context.add_setup Data.init;
       
    90 
    86 
    91 fun map_data f =
    87 fun map_data f =
    92   Data.map (fn Data {is_body, names, fixes, binds, type_occs, constraints} =>
    88   Data.map (fn Data {is_body, names, fixes, binds, type_occs, constraints} =>
    93     make_data (f (is_body, names, fixes, binds, type_occs, constraints)));
    89     make_data (f (is_body, names, fixes, binds, type_occs, constraints)));
    94 
    90