diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-23 14:57:22 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-23 14:57:22 +0100 |
| commit | dddc8083b56f265e1e53cd3e6d2e374b25f42cb3 (patch) | |
| tree | fcc4b0068862d91ff2b9d2161a4a051af70d5aed /src/Core/LogRel/View.idr | |
| parent | 8baf4268940277164f1462187501225033ec93c4 (diff) | |
Construct shape views reflexively.
Diffstat (limited to 'src/Core/LogRel/View.idr')
| -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) |