mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
7 lines
142 B
Plaintext
7 lines
142 B
Plaintext
import prelude
|
|
|
|
depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B
|
|
depif _ _ True x _ = x
|
|
depif _ _ False _ y = y
|
|
|