2022-02-16 17:18:08 +03:00
|
|
|
module InfixErrorP;
|
|
|
|
|
|
|
|
infix 5 , ;
|
|
|
|
|
2023-01-03 15:49:04 +03:00
|
|
|
type Pair :=
|
|
|
|
, : Type → Type → Pair;
|
2022-02-16 17:18:08 +03:00
|
|
|
|
|
|
|
fst : Pair → Type;
|
2022-09-30 03:55:32 +03:00
|
|
|
fst (x , ) := x;
|
2022-02-16 17:18:08 +03:00
|
|
|
|
2022-04-04 18:44:08 +03:00
|
|
|
end;
|