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'(_'))", [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 |