UseTacticsTactic Library for Coq: A Gentle Introduction
(* Chapter written and maintained by Arthur Chargueraud *)
Coq comes with a set of builtin tactics, such as reflexivity,
intros, inversion and so on. While it is possible to conduct
proofs using only those tactics, you can significantly increase
your productivity by working with a set of more powerful tactics.
This chapter describes a number of such useful tactics, which, for
various reasons, are not yet available by default in Coq. These
tactics are defined in the LibTactics.v file.
Set Warnings "-notation-overridden,-parsing".
From Coq Require Import Arith.Arith.
From PLF Require Import Maps.
From PLF Require Import Imp.
From PLF Require Import Types.
From PLF Require Import Smallstep.
From PLF Require Import LibTactics.
From PLF Require Stlc.
From PLF Require Equiv.
From PLF Require Imp.
From PLF Require References.
From PLF Require Smallstep.
From PLF Require Hoare.
From PLF Require Sub.
From Coq Require Import Arith.Arith.
From PLF Require Import Maps.
From PLF Require Import Imp.
From PLF Require Import Types.
From PLF Require Import Smallstep.
From PLF Require Import LibTactics.
From PLF Require Stlc.
From PLF Require Equiv.
From PLF Require Imp.
From PLF Require References.
From PLF Require Smallstep.
From PLF Require Hoare.
From PLF Require Sub.
Remark: SSReflect is another package providing powerful tactics.
The library "LibTactics" differs from "SSReflect" in two respects:
This chapter is a tutorial focusing on the most useful features
from the "LibTactics" library. It does not aim at presenting all
the features of "LibTactics". The detailed specification of tactics
can be found in the source file LibTactics.v. Further documentation
as well as demos can be found at http://www.chargueraud.org/softs/tlc/.
In this tutorial, tactics are presented using examples taken from
the core chapters of the "Software Foundations" course. To illustrate
the various ways in which a given tactic can be used, we use a
tactic that duplicates a given goal. More precisely, dup produces
two copies of the current goal, and dup n produces n copies of it.
- "SSReflect" was primarily developed for proving mathematical theorems, whereas "LibTactics" was primarily developed for proving theorems on programming languages. In particular, "LibTactics" provides a number of useful tactics that have no counterpart in the "SSReflect" package.
- "SSReflect" entirely rethinks the presentation of tactics, whereas "LibTactics" mostly stick to the traditional presentation of Coq tactics, simply providing a number of additional tactics. For this reason, "LibTactics" is probably easier to get started with than "SSReflect".
Tactics for Naming and Performing Inversion
- introv, for naming hypotheses more efficiently,
- inverts, for improving the inversion tactic.
Module IntrovExamples.
Import Stlc.
Import Imp.
Import STLC.
The tactic introv allows to automatically introduce the
variables of a theorem and explicitly name the hypotheses
involved. In the example shown next, the variables c,
st, st1 and st2 involved in the statement of determinism
need not be named explicitly, because their name where already
given in the statement of the lemma. On the contrary, it is
useful to provide names for the two hypotheses, which we
name E1 and E2, respectively.
Theorem ceval_deterministic: ∀c st st1 st2,
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. (* was intros c st st1 st2 E1 E2 *)
Abort.
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. (* was intros c st st1 st2 E1 E2 *)
Abort.
When there is no hypothesis to be named, one can call
introv without any argument.
Theorem dist_exists_or : ∀(X:Type) (P Q : X → Prop),
(∃x, P x ∨ Q x) ↔ (∃x, P x) ∨ (∃x, Q x).
Proof.
introv. (* was intros X P Q *)
Abort.
(∃x, P x ∨ Q x) ↔ (∃x, P x) ∨ (∃x, Q x).
Proof.
introv. (* was intros X P Q *)
Abort.
The tactic introv also applies to statements in which
∀ and → are interleaved.
Theorem ceval_deterministic': ∀c st st1,
(st =[ c ]⇒ st1) →
∀st2,
(st =[ c ]⇒ st2) →
st1 = st2.
Proof.
introv E1 E2. (* was intros c st st1 E1 st2 E2 *)
Abort.
(st =[ c ]⇒ st1) →
∀st2,
(st =[ c ]⇒ st2) →
st1 = st2.
Proof.
introv E1 E2. (* was intros c st st1 E1 st2 E2 *)
Abort.
Like the arguments of intros, the arguments of introv
can be structured patterns.
Theorem exists_impl: ∀X (P : X → Prop) (Q : Prop) (R : Prop),
(∀x, P x → Q) →
((∃x, P x) → Q).
Proof.
introv [x H2]. eauto.
(* same as intros X P Q R H1 [x H2]., which is itself short
for intros X P Q R H1 H2. destruct H2 as [x H2]. *)
Qed.
(∀x, P x → Q) →
((∃x, P x) → Q).
Proof.
introv [x H2]. eauto.
(* same as intros X P Q R H1 [x H2]., which is itself short
for intros X P Q R H1 H2. destruct H2 as [x H2]. *)
Qed.
Remark: the tactic introv works even when definitions
need to be unfolded in order to reveal hypotheses.
End IntrovExamples.
Module InvertsExamples.
Import Stlc.
Import Equiv.
Import Imp.
Import STLC.
The inversion tactic of Coq is not very satisfying for
three reasons. First, it produces a bunch of equalities
which one typically wants to substitute away, using subst.
Second, it introduces meaningless names for hypotheses.
Third, a call to inversion H does not remove H from the
context, even though in most cases an hypothesis is no longer
needed after being inverted. The tactic inverts address all
of these three issues. It is intented to be used in place of
the tactic inversion.
The following example illustrates how the tactic inverts H
behaves mostly like inversion H except that it performs
some substitutions in order to eliminate the trivial equalities
that are being produced by inversion.
Theorem skip_left: ∀c,
cequiv (SKIP;; c) c.
Proof.
introv. split; intros H.
dup. (* duplicate the goal for comparison *)
(* was... *)
- inversion H. subst. inversion H2. subst. assumption.
(* now... *)
- inverts H. inverts H2. assumption.
Abort.
cequiv (SKIP;; c) c.
Proof.
introv. split; intros H.
dup. (* duplicate the goal for comparison *)
(* was... *)
- inversion H. subst. inversion H2. subst. assumption.
(* now... *)
- inverts H. inverts H2. assumption.
Abort.
A slightly more interesting example appears next.
Theorem ceval_deterministic: ∀c st st1 st2,
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. generalize dependent st2.
induction E1; intros st2 E2.
admit. admit. (* skip some basic cases *)
dup. (* duplicate the goal for comparison *)
(* was: *)
- inversion E2. subst. admit.
(* now: *)
- inverts E2. admit.
Abort.
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. generalize dependent st2.
induction E1; intros st2 E2.
admit. admit. (* skip some basic cases *)
dup. (* duplicate the goal for comparison *)
(* was: *)
- inversion E2. subst. admit.
(* now: *)
- inverts E2. admit.
Abort.
The tactic inverts H as. is like inverts H except that the
variables and hypotheses being produced are placed in the goal
rather than in the context. This strategy allows naming those
new variables and hypotheses explicitly, using either intros
or introv.
Theorem ceval_deterministic': ∀c st st1 st2,
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. generalize dependent st2.
(induction E1); intros st2 E2;
inverts E2 as.
- (* E_Skip *) reflexivity.
- (* E_Ass *)
(* Observe that the variable n is not automatically
substituted because, contrary to inversion E2; subst,
the tactic inverts E2 does not substitute the equalities
that exist before running the inversion. *)
(* new: *) subst n.
reflexivity.
- (* E_Seq *)
(* Here, the newly created variables can be introduced
using intros, so they can be assigned meaningful names,
for example st3 instead of st'0. *)
(* new: *) intros st3 Red1 Red2.
assert (st' = st3) as EQ1.
{ (* Proof of assertion *) apply IHE1_1; assumption. }
subst st3.
apply IHE1_2. assumption.
(* E_IfTrue *)
- (* b1 reduces to true *)
(* In an easy case like this one, there is no need to
provide meaningful names, so we can just use intros *)
(* new: *) intros.
apply IHE1. assumption.
- (* b1 reduces to false (contradiction) *)
(* new: *) intros.
rewrite H in H5. inversion H5.
(* The other cases are similiar *)
Abort.
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
introv E1 E2. generalize dependent st2.
(induction E1); intros st2 E2;
inverts E2 as.
- (* E_Skip *) reflexivity.
- (* E_Ass *)
(* Observe that the variable n is not automatically
substituted because, contrary to inversion E2; subst,
the tactic inverts E2 does not substitute the equalities
that exist before running the inversion. *)
(* new: *) subst n.
reflexivity.
- (* E_Seq *)
(* Here, the newly created variables can be introduced
using intros, so they can be assigned meaningful names,
for example st3 instead of st'0. *)
(* new: *) intros st3 Red1 Red2.
assert (st' = st3) as EQ1.
{ (* Proof of assertion *) apply IHE1_1; assumption. }
subst st3.
apply IHE1_2. assumption.
(* E_IfTrue *)
- (* b1 reduces to true *)
(* In an easy case like this one, there is no need to
provide meaningful names, so we can just use intros *)
(* new: *) intros.
apply IHE1. assumption.
- (* b1 reduces to false (contradiction) *)
(* new: *) intros.
rewrite H in H5. inversion H5.
(* The other cases are similiar *)
Abort.
In the particular case where a call to inversion produces
a single subgoal, one can use the syntax inverts H as H1 H2 H3
for calling inverts and naming the new hypotheses H1, H2
and H3. In other words, the tactic inverts H as H1 H2 H3 is
equivalent to inverts H as; introv H1 H2 H3. An example follows.
Theorem skip_left': ∀c,
cequiv (SKIP;; c) c.
Proof.
introv. split; intros H.
inverts H as U V. (* new hypotheses are named U and V *)
inverts U. assumption.
Abort.
cequiv (SKIP;; c) c.
Proof.
introv. split; intros H.
inverts H as U V. (* new hypotheses are named U and V *)
inverts U. assumption.
Abort.
A more involved example appears next. In particular, this example
shows that the name of the hypothesis being inverted can be reused.
Example typing_nonexample_1 :
¬∃T,
has_type empty
(abs x Bool
(abs y Bool
(app (var x) (var y))))
T.
Proof.
dup 3.
(* The old proof: *)
- intros C. destruct C.
inversion H. subst. clear H.
inversion H5. subst. clear H5.
inversion H4. subst. clear H4.
inversion H2. subst. clear H2.
inversion H1.
(* The new proof: *)
- intros C. destruct C.
inverts H as H1.
inverts H1 as H2.
inverts H2 as H3 H4.
inverts H3 as H5.
inverts H5.
(* The new proof, alternative: *)
- intros C. destruct C.
inverts H as H.
inverts H as H.
inverts H as H1 H2.
inverts H1 as H1.
inverts H1.
Qed.
End InvertsExamples.
¬∃T,
has_type empty
(abs x Bool
(abs y Bool
(app (var x) (var y))))
T.
Proof.
dup 3.
(* The old proof: *)
- intros C. destruct C.
inversion H. subst. clear H.
inversion H5. subst. clear H5.
inversion H4. subst. clear H4.
inversion H2. subst. clear H2.
inversion H1.
(* The new proof: *)
- intros C. destruct C.
inverts H as H1.
inverts H1 as H2.
inverts H2 as H3 H4.
inverts H3 as H5.
inverts H5.
(* The new proof, alternative: *)
- intros C. destruct C.
inverts H as H.
inverts H as H.
inverts H as H1 H2.
inverts H1 as H1.
inverts H1.
Qed.
End InvertsExamples.
Note: in the rare cases where one needs to perform an inversion
on an hypothesis H without clearing H from the context,
one can use the tactic inverts keep H, where the keyword keep
indicates that the hypothesis should be kept in the context.
Tactics for N-ary Connectives
- splits for decomposing n-ary conjunctions,
- branch for decomposing n-ary disjunctions
Module NaryExamples.
Import References.
Import Smallstep.
Import STLCRef.
Import References.
Import Smallstep.
Import STLCRef.
The Tactic splits
Lemma demo_splits : ∀n m,
n > 0 ∧ n < m ∧ m < n+10 ∧ m ≠ 3.
Proof.
intros. splits.
Abort.
n > 0 ∧ n < m ∧ m < n+10 ∧ m ≠ 3.
Proof.
intros. splits.
Abort.
The Tactic branch
Lemma demo_branch : ∀n m,
n < m ∨ n = m ∨ m < n.
Proof.
intros.
destruct (lt_eq_lt_dec n m) as [[H1|H2]|H3].
- branch 1. apply H1.
- branch 2. apply H2.
- branch 3. apply H3.
Qed.
End NaryExamples.
n < m ∨ n = m ∨ m < n.
Proof.
intros.
destruct (lt_eq_lt_dec n m) as [[H1|H2]|H3].
- branch 1. apply H1.
- branch 2. apply H2.
- branch 3. apply H3.
Qed.
End NaryExamples.
Tactics for Working with Equality
- asserts_rewrite for introducing an equality to rewrite with,
- cuts_rewrite, which is similar except that its subgoals are swapped,
- substs for improving the subst tactic,
- fequals for improving the f_equal tactic,
- applys_eq for proving P x y using an hypothesis P x z, automatically producing an equality y = z as subgoal.
Module EqualityExamples.
The Tactics asserts_rewrite and cuts_rewrite
Theorem mult_0_plus : ∀n m : nat,
(0 + n) * m = n * m.
Proof.
dup.
(* The old proof: *)
intros n m.
assert (H: 0 + n = n). reflexivity. rewrite → H.
reflexivity.
(* The new proof: *)
intros n m.
asserts_rewrite (0 + n = n).
reflexivity. (* subgoal 0+n = n *)
reflexivity. (* subgoal n*m = m*n *)
Qed.
(*** Remark: the syntax asserts_rewrite (E1 = E2) in H allows
rewriting in the hypothesis H rather than in the goal. *)
(0 + n) * m = n * m.
Proof.
dup.
(* The old proof: *)
intros n m.
assert (H: 0 + n = n). reflexivity. rewrite → H.
reflexivity.
(* The new proof: *)
intros n m.
asserts_rewrite (0 + n = n).
reflexivity. (* subgoal 0+n = n *)
reflexivity. (* subgoal n*m = m*n *)
Qed.
(*** Remark: the syntax asserts_rewrite (E1 = E2) in H allows
rewriting in the hypothesis H rather than in the goal. *)
The tactic cuts_rewrite (E1 = E2) is like
asserts_rewrite (E1 = E2), except that the equality E1 = E2
appears as first subgoal.
Theorem mult_0_plus' : ∀n m : nat,
(0 + n) * m = n * m.
Proof.
intros n m.
cuts_rewrite (0 + n = n).
reflexivity. (* subgoal n*m = m*n *)
reflexivity. (* subgoal 0+n = n *)
Qed.
(0 + n) * m = n * m.
Proof.
intros n m.
cuts_rewrite (0 + n = n).
reflexivity. (* subgoal n*m = m*n *)
reflexivity. (* subgoal 0+n = n *)
Qed.
More generally, the tactics asserts_rewrite and cuts_rewrite
can be provided a lemma as argument. For example, one can write
asserts_rewrite (∀ a b, a*(S b) = a*b+a).
This formulation is useful when a and b are big terms,
since there is no need to repeat their statements.
Theorem mult_0_plus'' : ∀u v w x y z: nat,
(u + v) * (S (w * x + y)) = z.
Proof.
intros. asserts_rewrite (∀a b, a*(S b) = a*b+a).
(* first subgoal: ∀ a b, a*(S b) = a*b+a *)
(* second subgoal: (u + v) * (w * x + y) + (u + v) = z *)
Abort.
(u + v) * (S (w * x + y)) = z.
Proof.
intros. asserts_rewrite (∀a b, a*(S b) = a*b+a).
(* first subgoal: ∀ a b, a*(S b) = a*b+a *)
(* second subgoal: (u + v) * (w * x + y) + (u + v) = z *)
Abort.
The Tactic substs
Lemma demo_substs : ∀x y (f:nat→nat),
x = f x →
y = x →
y = f x.
Proof.
intros. substs. (* the tactic subst would fail here *)
assumption.
Qed.
x = f x →
y = x →
y = f x.
Proof.
intros. substs. (* the tactic subst would fail here *)
assumption.
Qed.
The Tactic fequals
Lemma demo_fequals : ∀(a b c d e : nat) (f : nat→nat→nat→nat→nat),
a = 1 →
b = e →
e = 2 →
f a b c d = f 1 2 c 4.
Proof.
intros. fequals.
(* subgoals a = 1, b = 2 and c = c are proved, d = 4 remains *)
Abort.
a = 1 →
b = e →
e = 2 →
f a b c d = f 1 2 c 4.
Proof.
intros. fequals.
(* subgoals a = 1, b = 2 and c = c are proved, d = 4 remains *)
Abort.
The Tactic applys_eq
Axiom big_expression_using : nat→nat. (* Used in the example *)
Lemma demo_applys_eq_1 : ∀(P:nat→nat→Prop) x y z,
P x (big_expression_using z) →
P x (big_expression_using y).
Proof.
introv H. dup.
(* The old proof: *)
assert (Eq: big_expression_using y = big_expression_using z).
admit. (* Assume we can prove this equality somehow. *)
rewrite Eq. apply H.
(* The new proof: *)
applys_eq H 1.
admit. (* Assume we can prove this equality somehow. *)
Abort.
Lemma demo_applys_eq_1 : ∀(P:nat→nat→Prop) x y z,
P x (big_expression_using z) →
P x (big_expression_using y).
Proof.
introv H. dup.
(* The old proof: *)
assert (Eq: big_expression_using y = big_expression_using z).
admit. (* Assume we can prove this equality somehow. *)
rewrite Eq. apply H.
(* The new proof: *)
applys_eq H 1.
admit. (* Assume we can prove this equality somehow. *)
Abort.
If the mismatch was on the first argument of P instead of
the second, we would have written applys_eq H 2. Recall
that the occurences are counted from the right.
Lemma demo_applys_eq_2 : ∀(P:nat→nat→Prop) x y z,
P (big_expression_using z) x →
P (big_expression_using y) x.
Proof.
introv H. applys_eq H 2.
Abort.
P (big_expression_using z) x →
P (big_expression_using y) x.
Proof.
introv H. applys_eq H 2.
Abort.
When we have a mismatch on two arguments, we want to produce
two equalities. To achieve this, we may call applys_eq H 1 2.
More generally, the tactic applys_eq expects a lemma and a
sequence of natural numbers as arguments.
Lemma demo_applys_eq_3 : ∀(P:nat→nat→Prop) x1 x2 y1 y2,
P (big_expression_using x2) (big_expression_using y2) →
P (big_expression_using x1) (big_expression_using y1).
Proof.
introv H. applys_eq H 1 2.
(* produces two subgoals:
big_expression_using x1 = big_expression_using x2
big_expression_using y1 = big_expression_using y2 *)
Abort.
End EqualityExamples.
P (big_expression_using x2) (big_expression_using y2) →
P (big_expression_using x1) (big_expression_using y1).
Proof.
introv H. applys_eq H 1 2.
(* produces two subgoals:
big_expression_using x1 = big_expression_using x2
big_expression_using y1 = big_expression_using y2 *)
Abort.
End EqualityExamples.
Some Convenient Shorthands
- unfolds (without argument) for unfolding the head definition,
- false for replacing the goal with False,
- gen as a shorthand for dependent generalize,
- admits for naming an addmited fact,
- admit_rewrite for rewriting using an admitted equality,
- admit_goal to set up a proof by induction by skipping the justification that some order decreases,
- sort for re-ordering the proof context by moving moving all propositions at the bottom.
Module UnfoldsExample.
Import Hoare.
The tactic unfolds (without any argument) unfolds the
head constant of the goal. This tactic saves the need to
name the constant explicitly.
Lemma bexp_eval_true : ∀b st,
beval st b = true →
(bassn b) st.
Proof.
intros b st Hbe. dup.
(* The old proof: *)
unfold bassn. assumption.
(* The new proof: *)
unfolds. assumption.
Qed.
beval st b = true →
(bassn b) st.
Proof.
intros b st Hbe. dup.
(* The old proof: *)
unfold bassn. assumption.
(* The new proof: *)
unfolds. assumption.
Qed.
Remark: contrary to the tactic hnf, which may unfold several
constants, unfolds performs only a single step of unfolding.
Remark: the tactic unfolds in H can be used to unfold the
head definition of the hypothesis H.
End UnfoldsExample.
The Tactics false and tryfalse
Lemma demo_false : ∀n,
S n = 1 →
n = 0.
Proof.
intros. destruct n. reflexivity. false.
Qed.
S n = 1 →
n = 0.
Proof.
intros. destruct n. reflexivity. false.
Qed.
The tactic false can be given an argument: false H replace
the goals with False and then applies H.
Lemma demo_false_arg :
(∀n, n < 0 → False) →
3 < 0 →
4 < 0.
Proof.
intros H L. false H. apply L.
Qed.
(∀n, n < 0 → False) →
3 < 0 →
4 < 0.
Proof.
intros H L. false H. apply L.
Qed.
The tactic tryfalse is a shorthand for try solve [false]:
it tries to find a contradiction in the goal. The tactic
tryfalse is generally called after a case analysis.
Lemma demo_tryfalse : ∀n,
S n = 1 →
n = 0.
Proof.
intros. destruct n; tryfalse. reflexivity.
Qed.
S n = 1 →
n = 0.
Proof.
intros. destruct n; tryfalse. reflexivity.
Qed.
The Tactic gen
Module GenExample.
Import Stlc.
Import STLC.
Lemma substitution_preserves_typing : ∀Gamma x U v t S,
has_type (update Gamma x U) t S →
has_type empty v U →
has_type Gamma ([x:=v]t) S.
Proof.
dup.
(* The old proof: *)
intros Gamma x U v t S Htypt Htypv.
generalize dependent S. generalize dependent Gamma.
induction t; intros; simpl.
admit. admit. admit. admit. admit. admit.
(* The new proof: *)
introv Htypt Htypv. gen S Gamma.
induction t; intros; simpl.
admit. admit. admit. admit. admit. admit.
Abort.
End GenExample.
Import Stlc.
Import STLC.
Lemma substitution_preserves_typing : ∀Gamma x U v t S,
has_type (update Gamma x U) t S →
has_type empty v U →
has_type Gamma ([x:=v]t) S.
Proof.
dup.
(* The old proof: *)
intros Gamma x U v t S Htypt Htypv.
generalize dependent S. generalize dependent Gamma.
induction t; intros; simpl.
admit. admit. admit. admit. admit. admit.
(* The new proof: *)
introv Htypt Htypv. gen S Gamma.
induction t; intros; simpl.
admit. admit. admit. admit. admit. admit.
Abort.
End GenExample.
The Tactics admits, admit_rewrite and admit_goal
Module SkipExample.
Import Stlc.
Import STLC.
Import Stlc.
Import STLC.
The tactic admits H: P adds the hypothesis H: P to the context,
without checking whether the proposition P is true.
It is useful for exploiting a fact and postponing its proof.
Note: admits H: P is simply a shorthand for assert (H:P). admit.
Theorem demo_admits : True.
Proof.
admits H: (∀n m : nat, (0 + n) * m = n * m).
Abort.
Proof.
admits H: (∀n m : nat, (0 + n) * m = n * m).
Abort.
The tactic admit_rewrite (E1 = E2) replaces E1 with E2 in
the goal, without checking that E1 is actually equal to E2.
Theorem mult_plus_0 : ∀n m : nat,
(n + 0) * m = n * m.
Proof.
dup 3.
(* The old proof: *)
intros n m.
assert (H: n + 0 = n). admit. rewrite → H. clear H.
reflexivity.
(* The new proof: *)
intros n m.
admit_rewrite (n + 0 = n).
reflexivity.
(* Remark: admit_rewrite can be given a lemma statement as argument,
like asserts_rewrite. For example: *)
intros n m.
admit_rewrite (∀a, a + 0 = a).
reflexivity.
Admitted.
(n + 0) * m = n * m.
Proof.
dup 3.
(* The old proof: *)
intros n m.
assert (H: n + 0 = n). admit. rewrite → H. clear H.
reflexivity.
(* The new proof: *)
intros n m.
admit_rewrite (n + 0 = n).
reflexivity.
(* Remark: admit_rewrite can be given a lemma statement as argument,
like asserts_rewrite. For example: *)
intros n m.
admit_rewrite (∀a, a + 0 = a).
reflexivity.
Admitted.
The tactic admit_goal adds the current goal as hypothesis.
This cheat is useful to set up the structure of a proof by
induction without having to worry about the induction hypothesis
being applied only to smaller arguments. Using skip_goal, one
can construct a proof in two steps: first, check that the main
arguments go through without waisting time on fixing the details
of the induction hypotheses; then, focus on fixing the invokations
of the induction hypothesis.
Theorem ceval_deterministic: ∀c st st1 st2,
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
(* The tactic admit_goal creates an hypothesis called IH
asserting that the statment of ceval_deterministic is true. *)
admit_goal.
(* Of course, if we call assumption here, then the goal is solved
right away, but the point is to do the proof and use IH
only at the places where we need an induction hypothesis. *)
introv E1 E2. gen st2.
(induction E1); introv E2; inverts E2 as.
- (* E_Skip *) reflexivity.
- (* E_Ass *)
subst n.
reflexivity.
- (* E_Seq *)
intros st3 Red1 Red2.
assert (st' = st3) as EQ1.
{ (* Proof of assertion *)
(* was: apply IHE1_1; assumption. *)
(* new: *) eapply IH. eapply E1_1. eapply Red1. }
subst st3.
(* was: apply IHE1_2. assumption.] *)
(* new: *) eapply IH. eapply E1_2. eapply Red2.
(* The other cases are similiar. *)
Abort.
End SkipExample.
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
(* The tactic admit_goal creates an hypothesis called IH
asserting that the statment of ceval_deterministic is true. *)
admit_goal.
(* Of course, if we call assumption here, then the goal is solved
right away, but the point is to do the proof and use IH
only at the places where we need an induction hypothesis. *)
introv E1 E2. gen st2.
(induction E1); introv E2; inverts E2 as.
- (* E_Skip *) reflexivity.
- (* E_Ass *)
subst n.
reflexivity.
- (* E_Seq *)
intros st3 Red1 Red2.
assert (st' = st3) as EQ1.
{ (* Proof of assertion *)
(* was: apply IHE1_1; assumption. *)
(* new: *) eapply IH. eapply E1_1. eapply Red1. }
subst st3.
(* was: apply IHE1_2. assumption.] *)
(* new: *) eapply IH. eapply E1_2. eapply Red2.
(* The other cases are similiar. *)
Abort.
End SkipExample.
Module SortExamples.
Import Imp.
The tactic sort reorganizes the proof context by placing
all the variables at the top and all the hypotheses at the
bottom, thereby making the proof context more readable.
Theorem ceval_deterministic: ∀c st st1 st2,
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
intros c st st1 st2 E1 E2.
generalize dependent st2.
(induction E1); intros st2 E2; inverts E2.
admit. admit. (* Skipping some trivial cases *)
sort. (* Observe how the context is reorganized *)
Abort.
End SortExamples.
st =[ c ]⇒ st1 →
st =[ c ]⇒ st2 →
st1 = st2.
Proof.
intros c st st1 st2 E1 E2.
generalize dependent st2.
(induction E1); intros st2 E2; inverts E2.
admit. admit. (* Skipping some trivial cases *)
sort. (* Observe how the context is reorganized *)
Abort.
End SortExamples.
Tactics for Advanced Lemma Instantiation
Working of lets
Module ExamplesLets.
Import Sub.
(* To illustrate the working of lets, assume that we want to
exploit the following lemma. *)
Import Sub.
Axiom typing_inversion_var : ∀(G:context) (x:string) (T:ty),
has_type G (var x) T →
∃S, G x = Some S ∧ subtype S T.
Import Sub.
(* To illustrate the working of lets, assume that we want to
exploit the following lemma. *)
Import Sub.
Axiom typing_inversion_var : ∀(G:context) (x:string) (T:ty),
has_type G (var x) T →
∃S, G x = Some S ∧ subtype S T.
First, assume we have an assumption H with the type of the form
has_type G (var x) T. We can obtain the conclusion of the
lemma typing_inversion_var by invoking the tactics
lets K: typing_inversion_var H, as shown next.
Lemma demo_lets_1 : ∀(G:context) (x:string) (T:ty),
has_type G (var x) T →
True.
Proof.
intros G x T H. dup.
(* step-by-step: *)
lets K: typing_inversion_var H.
destruct K as (S & Eq & Sub).
admit.
(* all-at-once: *)
lets (S & Eq & Sub): typing_inversion_var H.
admit.
Abort.
has_type G (var x) T →
True.
Proof.
intros G x T H. dup.
(* step-by-step: *)
lets K: typing_inversion_var H.
destruct K as (S & Eq & Sub).
admit.
(* all-at-once: *)
lets (S & Eq & Sub): typing_inversion_var H.
admit.
Abort.
Assume now that we know the values of G, x and T and we
want to obtain S, and have has_type G (var x) T be produced
as a subgoal. To indicate that we want all the remaining arguments
of typing_inversion_var to be produced as subgoals, we use a
triple-underscore symbol ___. (We'll later introduce a shorthand
tactic called forwards to avoid writing triple underscores.)
Lemma demo_lets_2 : ∀(G:context) (x:string) (T:ty), True.
Proof.
intros G x T.
lets (S & Eq & Sub): typing_inversion_var G x T ___.
Abort.
Proof.
intros G x T.
lets (S & Eq & Sub): typing_inversion_var G x T ___.
Abort.
Usually, there is only one context G and one type T that are
going to be suitable for proving has_type G (var x) T, so
we don't really need to bother giving G and T explicitly.
It suffices to call lets (S & Eq & Sub): typing_inversion_var x.
The variables G and T are then instantiated using existential
variables.
Lemma demo_lets_3 : ∀(x:string), True.
Proof.
intros x.
lets (S & Eq & Sub): typing_inversion_var x ___.
Abort.
Proof.
intros x.
lets (S & Eq & Sub): typing_inversion_var x ___.
Abort.
We may go even further by not giving any argument to instantiate
typing_inversion_var. In this case, three unification variables
are introduced.
Lemma demo_lets_4 : True.
Proof.
lets (S & Eq & Sub): typing_inversion_var ___.
Abort.
Proof.
lets (S & Eq & Sub): typing_inversion_var ___.
Abort.
Note: if we provide lets with only the name of the lemma as
argument, it simply adds this lemma in the proof context, without
trying to instantiate any of its arguments.
Lemma demo_lets_5 : True.
Proof.
lets H: typing_inversion_var.
Abort.
Proof.
lets H: typing_inversion_var.
Abort.
A last useful feature of lets is the double-underscore symbol,
which allows skipping an argument when several arguments have
the same type. In the following example, our assumption quantifies
over two variables n and m, both of type nat. We would like
m to be instantiated as the value 3, but without specifying a
value for n. This can be achieved by writting lets K: H __ 3.
Lemma demo_lets_underscore :
(∀n m, n ≤ m → n < m+1) →
True.
Proof.
intros H.
(* If we do not use a double underscore, the first argument,
which is n, gets instantiated as 3. *)
lets K: H 3. (* gives K of type ∀ m, 3 ≤ m → 3 < m+1 *)
clear K.
(* The double underscore preceeding 3 indicates that we want
to skip a value that has the type nat (because 3 has
the type nat). So, the variable m gets instiated as 3. *)
lets K: H __ 3. (* gives K of type ?X ≤ 3 → ?X < 3+1 *)
clear K.
Abort.
(∀n m, n ≤ m → n < m+1) →
True.
Proof.
intros H.
(* If we do not use a double underscore, the first argument,
which is n, gets instantiated as 3. *)
lets K: H 3. (* gives K of type ∀ m, 3 ≤ m → 3 < m+1 *)
clear K.
(* The double underscore preceeding 3 indicates that we want
to skip a value that has the type nat (because 3 has
the type nat). So, the variable m gets instiated as 3. *)
lets K: H __ 3. (* gives K of type ?X ≤ 3 → ?X < 3+1 *)
clear K.
Abort.
Note: one can write lets: E0 E1 E2 in place of lets H: E0 E1 E2.
In this case, the name H is chosen arbitrarily.
Note: the tactics lets accepts up to five arguments. Another
syntax is available for providing more than five arguments.
It consists in using a list introduced with the special symbol >>,
for example lets H: (>> E0 E1 E2 E3 E4 E5 E6 E7 E8 E9 10).
End ExamplesLets.
Working of applys, forwards and specializes
- forwards is a shorthand for instantiating all the arguments
- applys allows building a lemma using the advanced instantion
- specializes is a shorthand for instantiating in-place
Module ExamplesInstantiations.
Import Sub.
The following proof shows several examples where lets is used
instead of destruct, as well as examples where applys is used
instead of apply. The proof also contains some holes that you
need to fill in as an exercise.
Lemma substitution_preserves_typing : ∀Gamma x U v t S,
has_type (update Gamma x U) t S →
has_type empty v U →
has_type Gamma ([x:=v]t) S.
Proof with eauto.
intros Gamma x U v t S Htypt Htypv.
generalize dependent S. generalize dependent Gamma.
(induction t); intros; simpl.
- (* var *)
rename s into y.
(* An example where destruct is replaced with lets. *)
(* old: destruct (typing_inversion_var _ _ _ Htypt) as T [Hctx Hsub].*)
(* new: *) lets (T&Hctx&Hsub): typing_inversion_var Htypt.
unfold update, t_update in Hctx.
destruct (eqb_stringP x y)...
+ (* x=y *)
subst.
inversion Hctx; subst. clear Hctx.
apply context_invariance with empty...
intros x Hcontra.
(* A more involved example. *)
(* old: destruct (free_in_context _ _ S empty Hcontra)
as T' HT'... *)
(* new: *)
lets [T' HT']: free_in_context S (@empty ty) Hcontra...
inversion HT'.
- (* app *)
(* Exercise: replace the following destruct with a lets. *)
(* old: destruct (typing_inversion_app _ _ _ _ Htypt)
as T1 [Htypt1 Htypt2]. eapply T_App... *)
(* FILL IN HERE *) admit.
- (* abs *)
rename s into y. rename t into T1.
(* Here is another example of using lets. *)
(* old: destruct (typing_inversion_abs _ _ _ _ _ Htypt). *)
(* new: *) lets (T2&Hsub&Htypt2): typing_inversion_abs Htypt.
(* An example of where apply with can be replaced with applys. *)
(* old: apply T_Sub with (Arrow T1 T2)... *)
(* new: *) applys T_Sub (Arrow T1 T2)...
apply T_Abs...
destruct (eqb_stringP x y).
+ (* x=y *)
eapply context_invariance...
subst.
intros x Hafi. unfold update, t_update.
destruct (eqb_stringP y x)...
+ (* x<>y *)
apply IHt. eapply context_invariance...
intros z Hafi. unfold update, t_update.
destruct (eqb_stringP y z)...
subst. rewrite false_eqb_string...
- (* tru *)
lets: typing_inversion_true Htypt...
- (* fls *)
lets: typing_inversion_false Htypt...
- (* test *)
lets (Htyp1&Htyp2&Htyp3): typing_inversion_if Htypt...
- (* unit *)
(* An example where assert can be replaced with lets. *)
(* old: assert (subtype Unit S)
by apply (typing_inversion_unit _ _ Htypt)... *)
(* new: *) lets: typing_inversion_unit Htypt...
Admitted.
End ExamplesInstantiations.
has_type (update Gamma x U) t S →
has_type empty v U →
has_type Gamma ([x:=v]t) S.
Proof with eauto.
intros Gamma x U v t S Htypt Htypv.
generalize dependent S. generalize dependent Gamma.
(induction t); intros; simpl.
- (* var *)
rename s into y.
(* An example where destruct is replaced with lets. *)
(* old: destruct (typing_inversion_var _ _ _ Htypt) as T [Hctx Hsub].*)
(* new: *) lets (T&Hctx&Hsub): typing_inversion_var Htypt.
unfold update, t_update in Hctx.
destruct (eqb_stringP x y)...
+ (* x=y *)
subst.
inversion Hctx; subst. clear Hctx.
apply context_invariance with empty...
intros x Hcontra.
(* A more involved example. *)
(* old: destruct (free_in_context _ _ S empty Hcontra)
as T' HT'... *)
(* new: *)
lets [T' HT']: free_in_context S (@empty ty) Hcontra...
inversion HT'.
- (* app *)
(* Exercise: replace the following destruct with a lets. *)
(* old: destruct (typing_inversion_app _ _ _ _ Htypt)
as T1 [Htypt1 Htypt2]. eapply T_App... *)
(* FILL IN HERE *) admit.
- (* abs *)
rename s into y. rename t into T1.
(* Here is another example of using lets. *)
(* old: destruct (typing_inversion_abs _ _ _ _ _ Htypt). *)
(* new: *) lets (T2&Hsub&Htypt2): typing_inversion_abs Htypt.
(* An example of where apply with can be replaced with applys. *)
(* old: apply T_Sub with (Arrow T1 T2)... *)
(* new: *) applys T_Sub (Arrow T1 T2)...
apply T_Abs...
destruct (eqb_stringP x y).
+ (* x=y *)
eapply context_invariance...
subst.
intros x Hafi. unfold update, t_update.
destruct (eqb_stringP y x)...
+ (* x<>y *)
apply IHt. eapply context_invariance...
intros z Hafi. unfold update, t_update.
destruct (eqb_stringP y z)...
subst. rewrite false_eqb_string...
- (* tru *)
lets: typing_inversion_true Htypt...
- (* fls *)
lets: typing_inversion_false Htypt...
- (* test *)
lets (Htyp1&Htyp2&Htyp3): typing_inversion_if Htypt...
- (* unit *)
(* An example where assert can be replaced with lets. *)
(* old: assert (subtype Unit S)
by apply (typing_inversion_unit _ _ Htypt)... *)
(* new: *) lets: typing_inversion_unit Htypt...
Admitted.
End ExamplesInstantiations.
Summary
- introv and inverts improve naming and inversions.
- false and tryfalse help discarding absurd goals.
- unfolds automatically calls unfold on the head definition.
- gen helps setting up goals for induction.
- cases and cases_if help with case analysis.
- splits and branch, to deal with n-ary constructs.
- asserts_rewrite, cuts_rewrite, substs and fequals help
working with equalities.
- lets, forwards, specializes and applys provide means
of very conveniently instantiating lemmas.
- applys_eq can save the need to perform manual rewriting steps
before being able to apply lemma.
- admits, admit_rewrite and admit_goal give the flexibility to choose which subgoals to try and discharge first.
(* Mon Mar 25 14:39:40 EDT 2019 *)