source:
src/utilities/sigma.ma
@
1415
| Last change on this file since 1415 was 1266, checked in by , 9 years ago | |
|---|---|
| File size: 376 bytes | |
| Line | |
|---|---|
| 1 | include "basics/types.ma". |
| 2 | |
| 3 | (* Stuff about Sigma types *) |
| 4 | definition pi1: ∀A.∀P:A → Prop. (Σx:A. P x) → A ≝ |
| 5 | λA,P,c. match c with [ dp w _ ⇒ w ]. |
| 6 | coercion pi1: ∀A.∀P:A → Prop.∀p:(Σx:A. P x).A ≝ pi1 on _p:Σx:?.? to ?. |
| 7 | |
| 8 | definition pi2: ∀A.∀P:A → Prop. ∀x:Σx:A. P x. P x ≝ |
| 9 | λA,P,c. match c return λx:Σx:A. P x. P x with [ dp _ p ⇒ p ]. |
| 10 |
Note: See TracBrowser
for help on using the repository browser.
