Mercurial > cpdt > repo

comparison src/Universes.v @ 569:0ce9829efa3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Back to working in Coq 8.4
author Adam Chlipala <adam@chlipala.net>
date Sun, 20 Jan 2019 15:28:23 -0500
parents 81d63d9c1cc5
children 1dc1d41620b6
comparison
equal deleted inserted replaced
568:81d63d9c1cc5 569:0ce9829efa3b
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 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.