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

refactor(library/data/finset/card): remove unnecessary xrewrite

Browse source 
We can use the default 'rewrite' tactic after the commits pushed today.
This commit is contained in:
Leonardo de Moura 2015-06-10 18:46:16 -07:00
parent dc8768627c
commit 1b5d1136d9
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
library/data/finset/card.lean
View file

@ -106,11 +106,10 @@ finset.induction_on s
theorem inj_on_of_card_image_eq {f : A → B} {s : finset A} : theorem inj_on_of_card_image_eq {f : A → B} {s : finset A} :
card (image f s) = card s → inj_on f (ts s) := card (image f s) = card s → inj_on f (ts s) :=
finset.induction_on s finset.induction_on s
(by intro H; xrewrite to_set_empty; apply inj_on_empty) (by intro H; rewrite to_set_empty; apply inj_on_empty)
(begin (begin
intro a s' Ha IH, intro a s' Ha IH,
rewrite [image_insert, card_insert_of_not_mem Ha], rewrite [image_insert, card_insert_of_not_mem Ha, to_set_insert],
xrewrite [to_set_insert],
assume H1 : card (insert (f a) (image f s')) = card s' + 1, assume H1 : card (insert (f a) (image f s')) = card s' + 1,
show inj_on f (set.insert a (ts s')), from show inj_on f (set.insert a (ts s')), from
decidable.by_cases decidable.by_cases