From dddc8083b56f265e1e53cd3e6d2e374b25f42cb3 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Sun, 23 Apr 2023 14:57:22 +0100
Subject: Construct shape views reflexively.

---
 src/Core/LogRel/View.idr | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Core/LogRel/View.idr')

diff --git a/src/Core/LogRel/View.idr b/src/Core/LogRel/View.idr
index ecb6cc2..1790c9f 100644
--- a/src/Core/LogRel/View.idr
+++ b/src/Core/LogRel/View.idr
@@ -83,3 +83,10 @@ view (RedPiTy red1) (RedSetTy red2) (EqPiTy tyEq) =
   in
   absurd det
 view (RedPiTy red1) (RedPiTy red2) (EqPiTy tyEq) = Pi red1 red2
+
+public export
+viewRefl :
+  (red1 : (LogRel eq l1).TypeRed env a) ->
+  (red2 : (LogRel eq l2).TypeRed env a) ->
+  ShapeView red1 red2
+viewRefl red1 red2 = view red1 red2 (typeEqRefl _ red1)
-- 
cgit v1.2.3