src/Pure/Syntax/extension.ML
changeset 116 fdc1c3424247
parent 42 d981488bda7b
child 117 6b26ccac50fc
equal deleted inserted replaced
115:745affa0262b 116:fdc1c3424247
   234     fun descend (from, to) = Mfix ("_", to --> from, "", [0], 0);
   234     fun descend (from, to) = Mfix ("_", to --> from, "", [0], 0);
   235 
   235 
   236     fun parents T = Mfix ("(1'(_'))", T --> T, "", [0], max_pri);
   236     fun parents T = Mfix ("(1'(_'))", T --> T, "", [0], max_pri);
   237 
   237 
   238     fun mkappl T =
   238     fun mkappl T =
   239       Mfix ("_/(1'(_'))", [funT, argsT] ---> T, applC, [max_pri, 0], max_pri);
   239       Mfix ("(1_/(1'(_')))", [funT, argsT] ---> T, applC, [max_pri, 0], max_pri);
   240 
   240 
   241     fun mkid T = Mfix ("_", idT --> T, "", [], max_pri);
   241     fun mkid T = Mfix ("_", idT --> T, "", [], max_pri);
   242 
   242 
   243     fun mkvar T = Mfix ("_", varT --> T, "", [], max_pri);
   243     fun mkvar T = Mfix ("_", varT --> T, "", [], max_pri);
   244 
   244