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

Merge branch 'robbert/map_lookup_total' into 'master'

Rename instance `finmap_lookup_total` → `map_lookup_total`.

See merge request iris/stdpp!220
parents 2bc4c093 7bb734bc
No related branches found
No related tags found
1 merge request!220Rename instance `finmap_lookup_total` → `map_lookup_total`.
Pipeline #40744 failed
......@@ -145,9 +145,9 @@ Fixpoint map_seq `{Insert nat A M, Empty M} (start : nat) (xs : list A) : M :=
| x :: xs => <[start:=x]> (map_seq (S start) xs)
end.
Global Instance finmap_lookup_total `{!Lookup K A (M A), !Inhabited A} :
Global Instance map_lookup_total `{!Lookup K A (M A), !Inhabited A} :
LookupTotal K A (M A) | 20 := λ i m, default inhabitant (m !! i).
Typeclasses Opaque finmap_lookup_total.
Typeclasses Opaque map_lookup_total.
(** * Theorems *)
Section theorems.
......@@ -174,7 +174,7 @@ Section setoid.
Proper (≡@{A}) inhabitant
Proper ((≡@{M A}) ==> ()) (lookup_total i).
Proof.
intros ? m1 m2 Hm. unfold lookup_total, finmap_lookup_total.
intros ? m1 m2 Hm. unfold lookup_total, map_lookup_total.
apply from_option_proper; auto. by intros ??.
Qed.
Global Instance partial_alter_proper :
......
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