src/HOL/Tools/record_package.ML
changeset 24255 d86dbde1000c
parent 24219 e558fe311376
child 24624 b8383b1bbae3
equal deleted inserted replaced
24254:5180e11e4e42 24255:d86dbde1000c
   135 infix 9 $$;
   135 infix 9 $$;
   136 infix 0 :== ===;
   136 infix 0 :== ===;
   137 infixr 0 ==>;
   137 infixr 0 ==>;
   138 
   138 
   139 val (op $$) = Term.list_comb;
   139 val (op $$) = Term.list_comb;
   140 val (op :==) = Logic.mk_defpair;
   140 val (op :==) = PrimitiveDefs.mk_defpair;
   141 val (op ===) = Trueprop o HOLogic.mk_eq;
   141 val (op ===) = Trueprop o HOLogic.mk_eq;
   142 val (op ==>) = Logic.mk_implies;
   142 val (op ==>) = Logic.mk_implies;
   143 
   143 
   144 (* morphisms *)
   144 (* morphisms *)
   145 
   145