Global Instance IB : interp (string bool) (fun _ => []) :=
{|
i_f b s := b :: s ;
i_e := nil;
i_P u v := derivable R u v ;
i_Q := BPCP' R
|}.

Lemma drv_val domain eta (I : interp domain eta) rho u v :
derivable R u v -> rho ⊨ (F1 ==> F2 ==> Pr (enc u) (enc v)).