Added member as exist

This commit is contained in:
Niels van der Weide 2017-10-09 13:59:59 +02:00
parent 16e0e6f63d
commit 01d0908b8a
1 changed files with 10 additions and 0 deletions

View File

@ -118,6 +118,16 @@ Section quantifiers.
Defined.
End quantifiers.
Section exists_isIn.
Context {A : Type} `{Univalence}.
Theorem exist_isIn (a : A) (X : FSet A)
: a X = exist (fun b => BuildhProp(Trunc (-1) (a = b))) X.
Proof.
hinduction X ; try (intros ; apply path_ishprop) ; cbn ; try reflexivity.
Defined.
End exists_isIn.
Section simple_example.
Context `{Univalence}.