Skip to content
Snippets Groups Projects
Commit 94351334 authored by Robbert Krebbers's avatar Robbert Krebbers Committed by Ike Mulder
Browse files

Apply 2 suggestion(s) to 1 file(s)

parent ccd9cdac
No related branches found
No related tags found
No related merge requests found
......@@ -324,8 +324,8 @@ Inductive TCCbnTele {A} (x : A) : A → Prop :=
Existing Class TCCbnTele.
Global Hint Mode TCCbnTele ! - - : typeclass_instances.
(* We include a dependency on [FrameCanInstantiateExist], so that we can
disable this instance when framing beneath [∀], [-∗] and [→] *)
(* We include a dependency on [FrameCanInstantiateExist] so as to disable this
instance when framing beneath [∀], [-∗] and [→] *)
Global Instance frame_exist {A} p R (Φ : A PROP)
(TT : tele) (g : TT A) (Ψ : TT PROP) Q :
FrameCanInstantiateExist
......@@ -337,8 +337,9 @@ Proof.
eapply frame_exist_helper=> c.
by specialize (H c) as [a G HG -> ->].
Qed.
(* In case we are not allowed to instantiate, we try to look for a Frame that
works for all instantiations. *)
(* If [FrameNoInstantiateExist] holds we are not allowed to instantiate
existentials, so we just frame below the quantifier without instantiating
anything. *)
Global Instance frame_exist_no_instantiate {A} p R (Φ Ψ : A PROP) :
FrameNoInstantiateExist
( a, Frame p R (Φ a) (Ψ a))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment