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

Test with custom inductive.

parent 4ace54e6
No related branches found
No related tags found
No related merge requests found
......@@ -24,6 +24,12 @@ Definition big_sepM_pattern_value_tt
{PROP : bi} (m : gmap nat ()) : PROP :=
[ map] '() m, True.
Inductive foo := Foo (n : nat).
Definition big_sepM_pattern_value_custom
{PROP : bi} (m : gmap nat foo) : PROP :=
[ map] '(Foo x) m, 10 = x ⌝.
Definition big_sepM_pattern_key
{PROP : bi} (m : gmap (nat * nat) nat) : PROP :=
[ map] '(k,_) _ m, 10 = k ⌝.
......@@ -36,4 +42,4 @@ Definition big_sepM_cast {PROP : bi} (m : gmap nat nat) : PROP :=
[ map] (x:nat) m, 10%Z = x ⌝.
Definition big_sepM2_pattern {PROP : bi} (m1 m2 : gmap nat (nat * nat)) : PROP :=
[ map] '(x,_);'(_,y) m1;m2, x = y ⌝.
\ No newline at end of file
[ map] '(x,_);'(_,y) m1;m2, x = y ⌝.
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