changeset 685 | b12f0321dfb0 |
parent 663 | 0dd10a900cae |
child 705 | f51c6069cd17 |
684:88094aa77026 | 685:b12f0321dfb0 |
---|---|
77 by (rule alpha_equivps) |
77 by (rule alpha_equivps) |
78 |
78 |
79 quotient TY = ty / aty |
79 quotient TY = ty / aty |
80 and TRM = trm / atrm |
80 and TRM = trm / atrm |
81 by (auto intro: alpha_equivps) |
81 by (auto intro: alpha_equivps) |
82 |
|
83 print_quotients |
|
84 |
82 |
85 quotient_def |
83 quotient_def |
86 TYP :: "TYP :: KIND" |
84 TYP :: "TYP :: KIND" |
87 where |
85 where |
88 "Type" |
86 "Type" |