From bd673fcc09873de4894302e7f0c1ce3af6ecf1a6 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Sat, 8 Apr 2023 14:40:49 +0100
Subject: Prove weakening preserves reduction.

---
 src/Core/Declarative.idr | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Core/Declarative.idr')

diff --git a/src/Core/Declarative.idr b/src/Core/Declarative.idr
index 2dd7933..8704e07 100644
--- a/src/Core/Declarative.idr
+++ b/src/Core/Declarative.idr
@@ -157,6 +157,7 @@ data TermConv where
 envWfRespEnvEq : EnvWf env1 -> EnvEq env1 env2 -> EnvWf env2
 typeWfRespEnvEq : TypeWf env1 a -> EnvEq env1 env2 -> TypeWf env2 a
 typeConvRespEnvEq : TypeConv env1 a b -> EnvEq env1 env2 -> TypeConv env2 a b
+export
 termWfRespEnvEq : TermWf env1 t a -> EnvEq env1 env2 -> TermWf env2 t a
 termConvRespEnvEq : TermConv env1 t u b -> EnvEq env1 env2 -> TermConv env2 t u b
 
@@ -265,18 +266,21 @@ termConvImpliesEnvWf (AppConv conv conv1) = termConvImpliesEnvWf conv
 
 -- Weakening Preservation ------------------------------------------------------
 
+export
 wknPresTypeWf :
   {0 env1 : Env sx} ->
   TypeWf env1 a ->
   EnvWf env2 ->
   IsExtension thin env2 env1 ->
   TypeWf env2 (wkn a thin)
+export
 wknPresTypeConv :
   {0 env1 : Env sx} ->
   TypeConv env1 a b ->
   EnvWf env2 ->
   IsExtension thin env2 env1 ->
   TypeConv env2 (wkn a thin) (wkn b thin)
+export
 wknPresTermWf :
   {0 env1 : Env sx} ->
   TermWf env1 t a ->
-- 
cgit v1.2.3