mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 04:33:45 +03:00
14 lines
250 B
Idris
14 lines
250 B
Idris
|
module Sing
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
data Fing : Type -> Type where
|
||
|
|
StringFing : String -> Fing String
|
||
|
|
BoolFing : Bool -> Fing Bool
|
||
|
|
|
||
|
|
stringFing : Fing String -> String
|
||
|
|
stringFing (StringFing s) = s
|
||
|
|
|
||
|
|
boolFing : Fing Bool -> Bool
|
||
|
|
boolFing (BoolFing b) = b
|