mirror of
https://github.com/nmvdw/HITs-Examples
synced 2025-11-03 07:03:51 +01:00
minor cleanup
This commit is contained in:
@@ -449,11 +449,7 @@ Section kfin_bfin.
|
||||
reflexivity. }
|
||||
cbn[Fin].
|
||||
etransitivity. apply (notIn_ext_union_singleton b _ HX'Yb).
|
||||
(* TODO: rewrite fw does not work *)
|
||||
apply equiv_path.
|
||||
f_ap.
|
||||
apply (equiv_path _ _)^-1.
|
||||
apply fw.
|
||||
by rewrite ((equiv_path _ _)^-1 fw).
|
||||
Defined.
|
||||
|
||||
Definition FSet_to_Bfin : forall (X : FSet A), Bfin (map X).
|
||||
|
||||
Reference in New Issue
Block a user