equal
deleted
inserted
replaced
733 in |
733 in |
734 if not (defname mem used) |
734 if not (defname mem used) |
735 then F defname (* name_def *) |
735 then F defname (* name_def *) |
736 else if not (pdefname mem used) |
736 else if not (pdefname mem used) |
737 then F pdefname (* name_primdef *) |
737 then F pdefname (* name_primdef *) |
738 else F (variant used pdefname) (* last resort *) |
738 else F (Name.variant used pdefname) (* last resort *) |
739 end |
739 end |
740 end |
740 end |
741 |
741 |
742 local |
742 local |
743 fun handle_meta [x as Appl[Appl[Constant "_constrain", Constant "==", _],_,_]] = x |
743 fun handle_meta [x as Appl[Appl[Constant "_constrain", Constant "==", _],_,_]] = x |