mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
12 lines
211 B
Agda
12 lines
211 B
Agda
module Properties.Product where
|
||
|
||
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)
|