Definition Qeval_op2 (k:Tauto.kind) :  Op2 ->  Q -> Q -> Tauto.rtyp k:=
if k as k0 return (Op2 -> Q -> Q -> Tauto.rtyp k0)
then Qeval_pop2 else Qeval_bop2.

(* Specifications: *)
Lemma Qeval_op2_hold : forall k op q1 q2,
Tauto.hold k (Qeval_op2 k op q1 q2) <-> Qeval_pop2 op q1 q2.