Quot/Examples/LFex.thy
changeset 685 b12f0321dfb0
parent 663 0dd10a900cae
child 705 f51c6069cd17
equal deleted inserted replaced
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"