Definition Reval_op2 (k: Tauto.kind) :  Op2 ->  R -> R -> Tauto.rtyp k:=
if k as k0 return (Op2 -> R -> R -> Tauto.rtyp k0)
then Reval_pop2 else Reval_bop2.

(* Specifications: *)
Lemma Reval_op2_hold : forall b op q1 q2,
Tauto.hold b (Reval_op2 b op q1 q2) <-> Reval_pop2 op q1 q2.