mirror of https://github.com/nmvdw/HITs-Examples
minor cleanup
This commit is contained in:
parent
bd91e18ad6
commit
74eaddee2a
|
@ -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).
|
||||||
|
|
Loading…
Reference in New Issue