diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-07 17:54:59 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-07 17:54:59 +0100 |
| commit | 0880546a61bc0f7070cc924d9ee89a3fd11ec33b (patch) | |
| tree | 6451cc6defd082e8dd4df4862a0003425319b9a0 | |
| parent | d667295d2a23d19eee41b7b758bb87a6a40b489d (diff) | |
Correct definition of Eta conversion.
| -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 : |