mirror of
https://github.com/achlipala/frap.git
synced 2024-11-10 00:07:51 +00:00
Working with Coq 8.5pl2 again
This commit is contained in:
parent
1ee699431c
commit
e8c1980257
5 changed files with 16 additions and 5 deletions
|
@ -350,7 +350,9 @@ Proof.
|
||||||
invert 1; invert 1; simplify.
|
invert 1; invert 1; simplify.
|
||||||
eapply plug_deterministic in H0; eauto.
|
eapply plug_deterministic in H0; eauto.
|
||||||
invert H0.
|
invert H0.
|
||||||
eapply deterministic0 in H1; eauto.
|
match goal with
|
||||||
|
| [ H : step0 _ l' _ |- _ ] => eapply deterministic0 in H; eauto
|
||||||
|
end.
|
||||||
propositional; subst; auto.
|
propositional; subst; auto.
|
||||||
invert H0.
|
invert H0.
|
||||||
auto.
|
auto.
|
||||||
|
|
|
@ -280,7 +280,9 @@ Proof.
|
||||||
invert 1; invert 1; simplify.
|
invert 1; invert 1; simplify.
|
||||||
eapply plug_deterministic in H0; eauto.
|
eapply plug_deterministic in H0; eauto.
|
||||||
invert H0.
|
invert H0.
|
||||||
eapply deterministic0 in H1; eauto.
|
match goal with
|
||||||
|
| [ H : step0 _ l' _ |- _ ] => eapply deterministic0 in H; eauto
|
||||||
|
end.
|
||||||
propositional; subst; auto.
|
propositional; subst; auto.
|
||||||
invert H0.
|
invert H0.
|
||||||
auto.
|
auto.
|
||||||
|
|
|
@ -1159,7 +1159,7 @@ Section split.
|
||||||
Defined.
|
Defined.
|
||||||
End split.
|
End split.
|
||||||
|
|
||||||
Arguments split [P1 P2].
|
Implicit Arguments split [P1 P2].
|
||||||
|
|
||||||
(* And now, a few more boring lemmas. Rejoin at "BOREDOM VANQUISHED", if you
|
(* And now, a few more boring lemmas. Rejoin at "BOREDOM VANQUISHED", if you
|
||||||
* like. *)
|
* like. *)
|
||||||
|
|
|
@ -613,7 +613,14 @@ Definition typeCheck' : forall e : exp, {t : type | hasType e t} + {forall t, ~
|
||||||
[||TBool||]
|
[||TBool||]
|
||||||
end); simplify; propositional; subst; eauto;
|
end); simplify; propositional; subst; eauto;
|
||||||
match goal with
|
match goal with
|
||||||
| [ H : hasType _ _ |- _ ] => invert2 H
|
| [ H : hasType ?x _ |- _ ] =>
|
||||||
|
match goal with
|
||||||
|
| [ y : _ |- _ ] =>
|
||||||
|
match y with
|
||||||
|
| x => fail 2
|
||||||
|
end
|
||||||
|
| _ => invert2 H
|
||||||
|
end
|
||||||
end; eauto.
|
end; eauto.
|
||||||
Defined.
|
Defined.
|
||||||
|
|
||||||
|
|
|
@ -4811,7 +4811,7 @@ The project home page is:
|
||||||
\begin{center}
|
\begin{center}
|
||||||
\url{https://coq.inria.fr/}
|
\url{https://coq.inria.fr/}
|
||||||
\end{center}
|
\end{center}
|
||||||
The code associated with this book is designed to work with Coq versions 8.4 and higher.
|
The code associated with this book is designed to work with Coq versions 8.5 and higher.
|
||||||
The project Web site makes a number of versions available, and versions are also available in popular OS package distributions, along with binaries for platforms where open-source package systems are less common.
|
The project Web site makes a number of versions available, and versions are also available in popular OS package distributions, along with binaries for platforms where open-source package systems are less common.
|
||||||
We assume that readers have installed Coq by one of those means or another.
|
We assume that readers have installed Coq by one of those means or another.
|
||||||
It will also be almost essential to use some graphical interface for Coq editing.
|
It will also be almost essential to use some graphical interface for Coq editing.
|
||||||
|
|
Loading…
Reference in a new issue