mirror of
https://github.com/luau-lang/luau.git
synced 2024-11-15 22:35:43 +08:00
15 lines
230 B
Agda
15 lines
230 B
Agda
|
module Properties.Product where
|
|||
|
|
|
|||
|
|
infixr 5 _×_ _,_
|
|||
|
|
|
|||
|
|
record Σ {A : Set} (B : A → Set) : Set where
|
|||
|
|
|
|||
|
|
constructor _,_
|
|||
|
|
field fst : A
|
|||
|
|
field snd : B fst
|
|||
|
|
|
|||
|
|
open Σ public
|
|||
|
|
|
|||
|
|
_×_ : Set → Set → Set
|
|||
|
|
A × B = Σ (λ (a : A) → B)
|