1
1
mirror of https://github.com/anoma/juvix.git synced 2024-11-30 14:13:27 +03:00
juvix/tests/positive/Records2.juvix

15 lines
231 B
Plaintext
Raw Normal View History

module Records2;
import Stdlib.Data.Nat open;
type Pair (A B : Type) :=
mkPair {
pfst : A;
psnd : B
};
main : Pair Nat Nat :=
let
p : Pair Nat Nat := mkPair 2 2;
in p@Pair{pfst := Pair.pfst p + Pair.psnd p};