pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-11-10 00:07:51 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplify sets in hypotheses, too

Browse source
This commit is contained in:
Adam Chlipala 2017-03-12 21:27:59 -04:00
parent 89b1b74c7b
commit c8322773a4
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Sets.v
View file

@ -569,12 +569,20 @@ Ltac sets_cbv := cbv beta iota zeta delta [interp_normal_form normalize_setexpr
setmerge Elements Other nth_error map dedup member beq_nat orb setmerge Elements Other nth_error map dedup member beq_nat orb
andb included]. andb included].
Ltac sets_cbv_in H := cbv beta iota zeta delta [interp_normal_form normalize_setexpr nth_default
setmerge Elements Other nth_error map dedup member beq_nat orb
andb included] in H.
Ltac normalize_set := Ltac normalize_set :=
match goal with match goal with
| [ |- context[@union ?A ?X ?Y] ] => | [ |- context[@union ?A ?X ?Y] ] =>
quote (@union A X Y) (@nil A) ltac:(fun e env => quote (@union A X Y) (@nil A) ltac:(fun e env =>
change (@union A X Y) with (interp_setexpr env e)); change (@union A X Y) with (interp_setexpr env e));
rewrite <- normalize_setexpr_ok; sets_cbv rewrite <- normalize_setexpr_ok; sets_cbv
| [ H : context[@union ?A ?X ?Y] |- _ ] =>
quote (@union A X Y) (@nil A) ltac:(fun e env =>
change (@union A X Y) with (interp_setexpr env e) in H);
rewrite <- normalize_setexpr_ok in H; sets_cbv_in H
end. end.
Ltac compare_sets := Ltac compare_sets :=