diff options
| -rw-r--r-- | src/Core/Declarative.idr | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Core/Declarative.idr b/src/Core/Declarative.idr index b6cd55e..d326c4e 100644 --- a/src/Core/Declarative.idr +++ b/src/Core/Declarative.idr @@ -132,7 +132,10 @@ data TermConv where TypeWf env f -> TermWf env t (Pi n f g) -> TermWf env u (Pi n f g) -> - TermConv (env :< f) (App (wkn t $ drop (id _) n) a) (App (wkn u $ drop (id _) n) a) g -> + TermConv (env :< f) + (App (wkn t $ drop (id _) n) (Var Var.here)) + (App (wkn u $ drop (id _) n) (Var Var.here)) + g -> --- TermConv env t u (Pi n f g) AppConv : |