Mercurial > cpdt > repo

comparison src/Universes.v @ 568:81d63d9c1cc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Port to Coq 8.9.0
author Adam Chlipala <adam@chlipala.net>
date Sun, 20 Jan 2019 15:16:29 -0500
parents af97676583f3
children 0ce9829efa3b
comparison
equal deleted inserted replaced
567:ec0ce5129fc4 568:81d63d9c1cc5
1163 nth_error (@nil A) n = Some x 1163 nth_error (@nil A) n = Some x
1164 -> False. 1164 -> False.
1165 destruct n; simpl; unfold error; congruence. 1165 destruct n; simpl; unfold error; congruence.
1166 Defined. 1166 Defined.
1167 1167
1168 Implicit Arguments nth_error_nil [A n x]. 1168 Arguments nth_error_nil [A n x].
1169 1169
1170 Lemma Some_inj : forall A (x y : A), 1170 Lemma Some_inj : forall A (x y : A),
1171 Some x = Some y 1171 Some x = Some y
1172 -> x = y. 1172 -> x = y.
1173 congruence. 1173 congruence.