mirror of
https://github.com/nmvdw/HITs-Examples
synced 2025-11-03 15:13:51 +01:00
minor cleanup
This commit is contained in:
@@ -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).
|
||||||
|
|||||||
Reference in New Issue
Block a user