Definition unary_op_beq a b :=
match a, b with
  | Onotbool, Onotbool
  | Onotint, Onotint
  | Oneg, Oneg
  | Oabsfloat, Oabsfloat => true
  | _, _ => false
end.

(* Specifications: *)
Lemma unary_op_beq_sound : forall a b, unary_op_beq a b = true -> a = b .
Lemma unary_op_beq_refl : forall a, unary_op_beq a a = true.