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

Remove `lty_texist`.

parent deca51fa
No related branches found
No related tags found
1 merge request!13Jonas/more polymorphism
......@@ -28,8 +28,6 @@ Definition lty_forall `{heapG Σ} {k} (C : lty Σ k → ltty Σ) : ltty Σ :=
Ltty (λ w, A, WP w #() {{ ltty_car (C A) }})%I.
Definition lty_exist {Σ k} (C : lty Σ k ltty Σ) : ltty Σ :=
Ltty (λ w, A, ltty_car (C A) w)%I.
Definition lty_texist {Σ} {kt : ktele Σ} (C : ltys Σ kt ltty Σ) : ltty Σ :=
ktele_fold (@lty_exist Σ) (λ x, x) (ktele_bind C).
Definition lty_ref_mut `{heapG Σ} (A : ltty Σ) : ltty Σ := Ltty (λ w,
(l : loc) (v : val), w = #l l v ltty_car A v)%I.
......
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