16 lines
314 B
Plaintext
16 lines
314 B
Plaintext
|
{-|
|
||
|
Create a Preserves boolean map from a `Bool` value
|
||
|
-}
|
||
|
let Preserves/Type = ./Type.dhall
|
||
|
|
||
|
let Preserves/function = ./function.dhall
|
||
|
|
||
|
let bool
|
||
|
: Bool → Preserves/Type
|
||
|
= λ(x : Bool) →
|
||
|
λ(Preserves : Type) →
|
||
|
λ(value : Preserves/function Preserves) →
|
||
|
value.boolean x
|
||
|
|
||
|
in bool
|