minor cleanup

This commit is contained in:
Dan Frumin 2017-09-24 18:56:32 +02:00
parent bd91e18ad6
commit 74eaddee2a
1 changed files with 1 additions and 5 deletions

View File

@ -449,11 +449,7 @@ Section kfin_bfin.
reflexivity. } reflexivity. }
cbn[Fin]. cbn[Fin].
etransitivity. apply (notIn_ext_union_singleton b _ HX'Yb). etransitivity. apply (notIn_ext_union_singleton b _ HX'Yb).
(* TODO: rewrite fw does not work *) by rewrite ((equiv_path _ _)^-1 fw).
apply equiv_path.
f_ap.
apply (equiv_path _ _)^-1.
apply fw.
Defined. Defined.
Definition FSet_to_Bfin : forall (X : FSet A), Bfin (map X). Definition FSet_to_Bfin : forall (X : FSet A), Bfin (map X).