michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(library/data/fintype): cleanup and mark location that exposes bug in the 'cases' tactic

Browse source
This commit is contained in:
Leonardo de Moura 2015-04-12 17:52:41 -07:00
parent f523d3a995
commit 00d68cadc8
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
library/data/fintype.lean
View file

@ -119,28 +119,28 @@ private theorem mem_ltype_elems {A : Type} {s : list A} {a : ⟪s⟫}
| (b::l) h vainbl := or.elim (eq_or_mem_of_mem_cons vainbl) | (b::l) h vainbl := or.elim (eq_or_mem_of_mem_cons vainbl)
(λ vaeqb : value a = b, (λ vaeqb : value a = b,
begin begin
clear vainbl, reverts [vaeqb, h], reverts [vaeqb, h],
apply (as_type.cases_on a), -- TODO(Leo): check why 'cases a with [va, ma]' produces an incorrect proof
intros [va, ma, vaeqb], esimp at vaeqb, apply (as_type.cases_on a),
apply (eq.rec_on vaeqb), intro h, intros [va, ma, vaeqb],
change (mk va ma ∈ mk va (h !mem_cons) :: ltype_elems (sub_of_cons_sub h)), rewrite -vaeqb, intro h,
apply mem_cons apply mem_cons
end) end)
(λ vainl : value a ∈ l, (λ vainl : value a ∈ l,
assert s₁ : l ⊆ s, from sub_of_cons_sub h, have s₁ : l ⊆ s, from sub_of_cons_sub h,
have aux : a ∈ ltype_elems (sub_of_cons_sub h), from mem_ltype_elems s₁ vainl, have aux : a ∈ ltype_elems (sub_of_cons_sub h), from mem_ltype_elems s₁ vainl,
mem_cons_of_mem _ aux) mem_cons_of_mem _ aux)
definition fintype_list_as_type [instance] {A : Type} [h : decidable_eq A] {s : list A} : fintype ⟪s⟫ := definition fintype_list_as_type [instance] {A : Type} [h : decidable_eq A] {s : list A} : fintype ⟪s⟫ :=
let nds : list A := erase_dup s in let nds : list A := erase_dup s in
assert sub₁ : nds ⊆ s, from erase_dup_sub s, have sub₁ : nds ⊆ s, from erase_dup_sub s,
assert sub₂ : s ⊆ nds, from sub_erase_dup s, have sub₂ : s ⊆ nds, from sub_erase_dup s,
assert dnds : nodup nds, from nodup_erase_dup s, have dnds : nodup nds, from nodup_erase_dup s,
let e : list ⟪s⟫ := ltype_elems sub₁ in let e : list ⟪s⟫ := ltype_elems sub₁ in
fintype.mk fintype.mk
e e
(nodup_ltype_elems dnds sub₁) (nodup_ltype_elems dnds sub₁)
(λ a : ⟪s⟫, show a ∈ e, from (λ a : ⟪s⟫, show a ∈ e, from
assert vains : value a ∈ s, from is_member a, have vains : value a ∈ s, from is_member a,
assert vainnds : value a ∈ nds, from sub₂ vains, have vainnds : value a ∈ nds, from sub₂ vains,
mem_ltype_elems sub₁ vainnds) mem_ltype_elems sub₁ vainnds)