dan/HITs-Examples
1
0
Fork 0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-11-04 07:33:51 +01:00
Code Issues Releases Wiki Activity

path_ishprop now in extensionality

Browse Source
This commit is contained in:
Niels
2017-08-11 13:15:31 +02:00
parent 89808c7297
commit 5766024f95
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
FiniteSets/fsets/extensionality.v
View File

@@ -40,7 +40,7 @@ Section ext.
forall Y, X ⊆ X ∪ Y.
Proof.
hinduction X ; try (repeat (intro; intros; apply path_forall);
intro ; apply equiv_hprop_allpath ; apply _).
intro ; apply path_ishprop).
- apply (fun _ => tt).
- intros a Y.
apply (tr(inl(tr idpath))).
@@ -69,7 +69,7 @@ Section ext.
eapply equiv_iff_hprop_uncurried.
split.
- hinduction X ;
try (intros; repeat (apply path_forall; intro); apply equiv_hprop_allpath ; apply _).
try (intros; repeat (apply path_forall; intro); apply path_ishprop).
+ intros ; reflexivity.
+ intros a f.
apply f.
@@ -89,7 +89,7 @@ Section ext.
left.
apply Ha.
- hinduction X ;
try (intros; repeat (apply path_forall; intro); apply equiv_hprop_allpath ; apply _).
try (intros; repeat (apply path_forall; intro); apply path_ishprop).
+ intros. contradiction.
+ intros b f a.
simple refine (Trunc_ind _ _) ; cbn.