mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
WIP
This commit is contained in:
parent
cd9182ca5f
commit
fcccd9443a
2 changed files with 15 additions and 0 deletions
3
prototyping/.gitignore
vendored
3
prototyping/.gitignore
vendored
|
@ -3,4 +3,7 @@
|
||||||
Main
|
Main
|
||||||
MAlonzo
|
MAlonzo
|
||||||
PrettyPrinter
|
PrettyPrinter
|
||||||
|
Interpreter
|
||||||
|
!Tests/Interpreter
|
||||||
|
!Tests/PrettyPrinter
|
||||||
.ghc.*
|
.ghc.*
|
||||||
|
|
12
prototyping/Properties/Product.agda
Normal file
12
prototyping/Properties/Product.agda
Normal file
|
@ -0,0 +1,12 @@
|
||||||
|
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)
|
Loading…
Add table
Reference in a new issue