(** ** Non-Standard Model *)
Module NonStan. Section Nonstan.
Variable R : BSRS.
Instance IB : interp (option (string bool)) (fun _ => Some nil) :=
{|
i_f b x := match x with Some u => Some (b :: u) | None => None end ;
i_e := Some nil;
i_P x y := match x, y with Some u, Some v => derivable R u v | _, _ => True end ;
i_Q := False
|}.

Lemma IB_enc rho u :
eval rho (enc u) = Some u.