mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-13 17:25:29 +03:00
45 lines
648 B
Idris
45 lines
648 B
Idris
|
module Issue1328A
|
||
|
|
%default total
|
||
|
|
|
||
|
|
infix 4 `InCtx`
|
||
|
|
data InCtx : (a, b : Type) -> Type where
|
||
|
|
|
||
|
|
prop0 : a `InCtx` b
|
||
|
|
prop0 = ?undef_0
|
||
|
|
|
||
|
|
prop1 : (`InCtx` b) a
|
||
|
|
prop1 = ?undef_1
|
||
|
|
|
||
|
|
prop2 : (a `InCtx`) b
|
||
|
|
prop2 = ?undef_2
|
||
|
|
|
||
|
|
def0 : (m, n : Integer) -> Integer
|
||
|
|
def0 m n = m `div` n
|
||
|
|
|
||
|
|
def1 : (m, n : Integer) -> Integer
|
||
|
|
def1 m n = (`div` n) m
|
||
|
|
|
||
|
|
def2 : (m, n : Integer) -> Integer
|
||
|
|
def2 m n = (m `div`) n
|
||
|
|
|
||
|
|
infix 4 |-
|
||
|
|
data (|-) : (a, b : Type) -> Type where
|
||
|
|
|
||
|
|
inProp0 : a |- b
|
||
|
|
inProp0 = ?undef_3
|
||
|
|
|
||
|
|
inProp1 : (|- b) a
|
||
|
|
inProp1 = ?undef_4
|
||
|
|
|
||
|
|
inProp2 : (a |-) b
|
||
|
|
inProp2 = ?undef_5
|
||
|
|
|
||
|
|
inDef0 : Nat
|
||
|
|
inDef0 = 42 + 21
|
||
|
|
|
||
|
|
inDef1 : Nat
|
||
|
|
inDef1 = (+ 21) 42
|
||
|
|
|
||
|
|
inDef2 : Nat
|
||
|
|
inDef2 = (42 +) 21
|