src/HOL/Import/hol4rews.ML
changeset 20071 8f3e1ddb50e6
parent 18921 f47c46d7d654
child 20897 3f8d2834b2c4
equal deleted inserted replaced
20070:3f31fb81b83a 20071:8f3e1ddb50e6
   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