a few tests

This commit is contained in:
rhiannon morris 2022-04-27 20:06:39 +02:00
parent 6bffd6a11c
commit 1eace0039e
4 changed files with 143 additions and 6 deletions

View file

@ -89,6 +89,10 @@ mutual
%name ScopeTerm body
%name DScopeTerm body
public export %inline
Arr : Qty -> Term d n -> Term d n -> Term d n
Arr pi a b = Pi {qtm = pi, qty = zero, x = "_", arg = a, res = TUnused b}
||| same as `F` but as a term
public export %inline
FT : Name -> Term d n