mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 03:01:31 +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
|