Commit fc9ee09a authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Minimal proof mode support for monPred_ex

parent 024ad110
......@@ -267,6 +267,17 @@ Proof.
rewrite /IntoForall /MakeMonPredAt=>H. setoid_rewrite <- H. by unseal.
Qed.
Global Instance from_exist_monPred_at_ex P (Φ : I PROP) i :
( i, MakeMonPredAt i P (Φ i)) FromExist (monPred_ex P i) Φ.
Proof.
rewrite /FromExist /MakeMonPredAt=>H. setoid_rewrite <- H. by unseal.
Qed.
Global Instance into_exist_monPred_at_ex P (Φ : I PROP) i :
( i, MakeMonPredAt i P (Φ i)) IntoExist (monPred_ex P i) Φ.
Proof.
rewrite /IntoExist /MakeMonPredAt=>H. setoid_rewrite <- H. by unseal.
Qed.
Global Instance from_forall_monPred_at {A} P (Φ : A monPred) (Ψ : A PROP) i :
FromForall P Φ ( a, MakeMonPredAt i (Φ a) (Ψ a)) FromForall (P i) Ψ.
Proof.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment