- change (interp_ctx empty F_empty [[gl]]) ;
apply interp_proof with prf;assumption.
- trivial.
Qed.
End with_env.
(* (* A small example *)
Parameters A B C D:Prop.

(* Specifications: *)
Theorem toto:A /\ (B \/ C) -> (A /\ B) \/ (A /\ C).
exact (Reflect (empty \ A \ B \ C)
([1] //\\ ([2] \\// [3]) =>> [1] //\\ [2] \\// [1] //\\ [3])
(I_Arrow (E_And 1 (E_Or 3
(I_Or_l (I_And (Ax 2) (Ax 4)))
(I_Or_r (I_And (Ax 2) (Ax 4))))))).