diff options
Diffstat (limited to 'src/Core/LogRel')
| -rw-r--r-- | src/Core/LogRel/View.idr | 7 |
1 files changed, 7 insertions, 0 deletions
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) |