export PushSubsts, oops

This commit is contained in:
rhiannon morris 2023-09-20 21:58:55 +02:00
parent b1eefb0f4d
commit ea674503c0

View file

@ -201,6 +201,7 @@ public export
0 CloTest : TermLike -> Type
CloTest tm = forall d, n. tm d n -> Bool
public export
interface PushSubsts (0 tm : TermLike) (0 isClo : CloTest tm) | tm where
pushSubstsWith : DSubst d1 d2 -> TSubst d2 n1 n2 ->
tm d1 n1 -> Subset (tm d2 n2) (No . isClo)