MapsTotal and Partial Maps
The Coq Standard Library
Require Import Coq.Arith.Arith.
Require Import Coq.Bool.Bool.
Require Export Coq.Strings.String.
Require Import Coq.Logic.FunctionalExtensionality.
Require Import Coq.Lists.List.
Import ListNotations.
Require Import Coq.Bool.Bool.
Require Export Coq.Strings.String.
Require Import Coq.Logic.FunctionalExtensionality.
Require Import Coq.Lists.List.
Import ListNotations.
Documentation for the standard library can be found at
http://coq.inria.fr/library/.
The Search command is a good way to look for theorems involving
objects of specific types. Take a minute now to experiment with it.
Identifiers
(The function string_dec comes from Coq's string library.
If you check the result type of string_dec, you'll see that it
does not actually return a bool, but rather a type that looks
like {x = y} + {x ≠ y}, called a sumbool, which can be
thought of as an "evidence-carrying boolean." Formally, an
element of sumbool is either a proof that two things are equal
or a proof that they are unequal, together with a tag indicating
which. But for present purposes you can think of it as just a
fancy bool.)
Theorem beq_string_refl : ∀ s, true = beq_string s s.
Proof. intros s. unfold beq_string. destruct (string_dec s s) as [|Hs].
- reflexivity.
- destruct Hs. reflexivity.
Qed.
- reflexivity.
- destruct Hs. reflexivity.
Qed.
The following useful property of beq_string follows from an
analogous lemma about strings:
Theorem beq_string_true_iff : ∀ x y : string,
beq_string x y = true ↔ x = y.
beq_string x y = true ↔ x = y.
Proof.
intros x y.
unfold beq_string.
destruct (string_dec x y) as [|Hs].
- subst. split. reflexivity. reflexivity.
- split.
+ intros contra. inversion contra.
+ intros H. inversion H. subst. destruct Hs. reflexivity.
Qed.
intros x y.
unfold beq_string.
destruct (string_dec x y) as [|Hs].
- subst. split. reflexivity. reflexivity.
- split.
+ intros contra. inversion contra.
+ intros H. inversion H. subst. destruct Hs. reflexivity.
Qed.
Similarly:
This useful variant follows just by rewriting:
Total Maps
Intuitively, a total map over an element type A is just a
function that can be used to look up strings, yielding As.
The function t_empty yields an empty total map, given a default
element; this map always returns the default element when applied
to any string.
More interesting is the update function, which (as before) takes
a map m, a key x, and a value v and returns a new map that
takes x to v and takes every other key to whatever m does.
Definition t_update {A:Type} (m : total_map A)
(x : string) (v : A) :=
fun x' ⇒ if beq_string x x' then v else m x'.
(x : string) (v : A) :=
fun x' ⇒ if beq_string x x' then v else m x'.
This definition is a nice example of higher-order programming:
t_update takes a function m and yields a new function
fun x' ⇒ ... that behaves like the desired map.
For example, we can build a map taking strings to bools, where
"foo" and "bar" are mapped to true and every other key is
mapped to false, like this:
Next, let's introduce some new notations to facilitate working
with maps.
First, we will use the following notation to create an empty total map
with a default value.
We then introduce a convenient notation for extending an existing
map with some bindings.
(The definition of the notation is a bit ugly, but because the
notation mechanism of Coq is not very well suited for recursive
notations, it's the best we can do.)
Notation "m '&' { a --> x }" :=
(t_update m a x) (at level 20).
Notation "m '&' { a --> x ; b --> y }" :=
(t_update (m & { a --> x }) b y) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z }" :=
(t_update (m & { a --> x ; b --> y }) c z) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t }" :=
(t_update (m & { a --> x ; b --> y ; c --> z }) d t) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t ; e --> u }" :=
(t_update (m & { a --> x ; b --> y ; c --> z ; d --> t }) e u) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t ; e --> u ; f --> v }" :=
(t_update (m & { a --> x ; b --> y ; c --> z ; d --> t ; e --> u }) f v) (at level 20).
(t_update m a x) (at level 20).
Notation "m '&' { a --> x ; b --> y }" :=
(t_update (m & { a --> x }) b y) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z }" :=
(t_update (m & { a --> x ; b --> y }) c z) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t }" :=
(t_update (m & { a --> x ; b --> y ; c --> z }) d t) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t ; e --> u }" :=
(t_update (m & { a --> x ; b --> y ; c --> z ; d --> t }) e u) (at level 20).
Notation "m '&' { a --> x ; b --> y ; c --> z ; d --> t ; e --> u ; f --> v }" :=
(t_update (m & { a --> x ; b --> y ; c --> z ; d --> t ; e --> u }) f v) (at level 20).
The examplemap above can now be defined as follows:
This completes the definition of total maps. Note that we
don't need to define a find operation because it is just
function application!
To use maps in later chapters, we'll need several fundamental
facts about how they behave.
Even if you don't work the following exercises, make sure
you thoroughly understand the statements of the lemmas!
(Some of the proofs require the functional extensionality axiom,
which is discussed in the Logic chapter.)
Exercise: 1 star, optional (t_apply_empty)
First, the empty map returns its default element for all keys:
Lemma t_apply_empty: ∀ (A:Type) (x: string) (v: A), { --> v } x = v.
Proof.
(* FILL IN HERE *) Admitted.
☐
Proof.
(* FILL IN HERE *) Admitted.
Exercise: 2 stars, optional (t_update_eq)
Next, if we update a map m at a key x with a new value v and then look up x in the map resulting from the update, we get back v:
Lemma t_update_eq : ∀ A (m: total_map A) x v,
(m & {x --> v}) x = v.
Proof.
(* FILL IN HERE *) Admitted.
☐
(m & {x --> v}) x = v.
Proof.
(* FILL IN HERE *) Admitted.
Exercise: 2 stars, optional (t_update_neq)
On the other hand, if we update a map m at a key x1 and then look up a different key x2 in the resulting map, we get the same result that m would have given:
Theorem t_update_neq : ∀ (X:Type) v x1 x2
(m : total_map X),
x1 ≠ x2 →
(m & {x1 --> v}) x2 = m x2.
Proof.
(* FILL IN HERE *) Admitted.
☐
(m : total_map X),
x1 ≠ x2 →
(m & {x1 --> v}) x2 = m x2.
Proof.
(* FILL IN HERE *) Admitted.
Exercise: 2 stars, optional (t_update_shadow)
If we update a map m at a key x with a value v1 and then update again with the same key x and another value v2, the resulting map behaves the same (gives the same result when applied to any key) as the simpler map obtained by performing just the second update on m:
Lemma t_update_shadow : ∀ A (m: total_map A) v1 v2 x,
m & {x --> v1 ; x --> v2} = m & {x --> v2}.
Proof.
(* FILL IN HERE *) Admitted.
☐
m & {x --> v1 ; x --> v2} = m & {x --> v2}.
Proof.
(* FILL IN HERE *) Admitted.
Exercise: 2 stars, optional (beq_stringP)
Use the proof of beq_natP in chapter IndProp as a template to prove the following:Exercise: 2 stars (t_update_same)
With the example in chapter IndProp as a template, use beq_stringP to prove the following theorem, which states that if we update a map to assign key x the same value as it already has in m, then the result is equal to m:
Theorem t_update_same : ∀ X x (m : total_map X),
m & { x --> m x } = m.
Proof.
(* FILL IN HERE *) Admitted.
☐
m & { x --> m x } = m.
Proof.
(* FILL IN HERE *) Admitted.
Exercise: 3 stars, recommended (t_update_permute)
Use beq_stringP to prove one final property of the update function: If we update a map m at two distinct keys, it doesn't matter in which order we do the updates.
Theorem t_update_permute : ∀ (X:Type) v1 v2 x1 x2
(m : total_map X),
x2 ≠ x1 →
m & { x2 --> v2 ; x1 --> v1 }
= m & { x1 --> v1 ; x2 --> v2 }.
Proof.
(* FILL IN HERE *) Admitted.
☐
(m : total_map X),
x2 ≠ x1 →
m & { x2 --> v2 ; x1 --> v1 }
= m & { x1 --> v1 ; x2 --> v2 }.
Proof.
(* FILL IN HERE *) Admitted.
Partial maps
Definition partial_map (A:Type) := total_map (option A).
Definition empty {A:Type} : partial_map A :=
t_empty None.
Definition update {A:Type} (m : partial_map A)
(x : string) (v : A) :=
m & { x --> (Some v) }.
Definition empty {A:Type} : partial_map A :=
t_empty None.
Definition update {A:Type} (m : partial_map A)
(x : string) (v : A) :=
m & { x --> (Some v) }.
We introduce a similar notation for partial maps, using double
curly-brackets.
Notation "m '&' {{ a --> x }}" :=
(update m a x) (at level 20).
Notation "m '&' {{ a --> x ; b --> y }}" :=
(update (m & {{ a --> x }}) b y) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z }}" :=
(update (m & {{ a --> x ; b --> y }}) c z) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z }}) d t) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z ; d --> t }}) e u) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u ; f --> v }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u }}) f v) (at level 20).
(update m a x) (at level 20).
Notation "m '&' {{ a --> x ; b --> y }}" :=
(update (m & {{ a --> x }}) b y) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z }}" :=
(update (m & {{ a --> x ; b --> y }}) c z) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z }}) d t) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z ; d --> t }}) e u) (at level 20).
Notation "m '&' {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u ; f --> v }}" :=
(update (m & {{ a --> x ; b --> y ; c --> z ; d --> t ; e --> u }}) f v) (at level 20).
We now straightforwardly lift all of the basic lemmas about total
maps to partial maps.
Lemma apply_empty : ∀ (A: Type) (x: string), @empty A x = None.
Lemma update_eq : ∀ A (m: partial_map A) x v,
(m & {{ x --> v }}) x = Some v.
Theorem update_neq : ∀ (X:Type) v x1 x2
(m : partial_map X),
x2 ≠ x1 →
(m & {{ x2 --> v }}) x1 = m x1.
Lemma update_shadow : ∀ A (m: partial_map A) v1 v2 x,
m & {{ x --> v1 ; x --> v2 }} = m & {{x --> v2}}.
Theorem update_same : ∀ X v x (m : partial_map X),
m x = Some v →
m & {{x --> v}} = m.
Theorem update_permute : ∀ (X:Type) v1 v2 x1 x2
(m : partial_map X),
x2 ≠ x1 →
m & {{x2 --> v2 ; x1 --> v1}}
= m & {{x1 --> v1 ; x2 --> v2}}.
Lemma update_eq : ∀ A (m: partial_map A) x v,
(m & {{ x --> v }}) x = Some v.
Theorem update_neq : ∀ (X:Type) v x1 x2
(m : partial_map X),
x2 ≠ x1 →
(m & {{ x2 --> v }}) x1 = m x1.
Lemma update_shadow : ∀ A (m: partial_map A) v1 v2 x,
m & {{ x --> v1 ; x --> v2 }} = m & {{x --> v2}}.
Theorem update_same : ∀ X v x (m : partial_map X),
m x = Some v →
m & {{x --> v}} = m.
Theorem update_permute : ∀ (X:Type) v1 v2 x1 x2
(m : partial_map X),
x2 ≠ x1 →
m & {{x2 --> v2 ; x1 --> v1}}
= m & {{x1 --> v1 ; x2 --> v2}}.