Skip to content
Snippets Groups Projects
Commit 3c9e8424 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Write `twp_ind` in a more sane way.

parent e37a60a2
No related branches found
No related tags found
No related merge requests found
......@@ -77,8 +77,8 @@ Lemma twp_unfold s E e Φ : WP e @ s; E [{ Φ }] ⊣⊢ twp_pre s (twp s) E e Φ
Proof. by rewrite twp_eq /twp_def least_fixpoint_unfold. Qed.
Lemma twp_ind s Ψ :
( n E e, Proper (pointwise_relation _ (dist n) ==> dist n) (Ψ E e))
( ( e E Φ, twp_pre s (λ E e Φ, Ψ E e Φ WP e @ s; E [{ Φ }]) E e Φ -∗ Ψ E e Φ)
e E Φ, WP e @ s; E [{ Φ }] -∗ Ψ E e Φ)%I.
( e E Φ, twp_pre s (λ E e Φ, Ψ E e Φ WP e @ s; E [{ Φ }]) E e Φ -∗ Ψ E e Φ) -∗
e E Φ, WP e @ s; E [{ Φ }] -∗ Ψ E e Φ.
Proof.
iIntros (). iIntros "#IH" (e E Φ) "H". rewrite twp_eq.
set (Ψ' := curry3 Ψ :
......
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