mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
19 lines
267 B
Plaintext
19 lines
267 B
Plaintext
|
module M;
|
||
|
|
|
||
|
|
open import Data.Nat;
|
||
|
|
open import Data.Maybe;
|
||
|
|
open import Data.Product;
|
||
|
|
open import Data.Bool;
|
||
|
|
open import Data.Ord;
|
||
|
|
|
||
|
|
f : Bool -> Bool;
|
||
|
|
f x := x;
|
||
|
|
|
||
|
|
g : {A : Type} -> A -> Bool -> Bool;
|
||
|
|
g x y := f y;
|
||
|
|
|
||
|
|
h : {A : Type} -> A -> Maybe Bool;
|
||
|
|
h x := nothing;
|
||
|
|
|
||
|
|
end;
|