diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-06 12:25:26 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-06 12:25:26 +0100 |
| commit | bf07a9fe3ee4ff06fe186e33221f7f91871b9217 (patch) | |
| tree | ac9597b4ad38a354aec3d6edc8b712179bd23b9c /src/Total/Reduction.idr | |
| parent | d5f8497dbb6de72d9664f48d6acbc9772de77be3 (diff) | |
Write an encoding for data types.
Diffstat (limited to 'src/Total/Reduction.idr')
| -rw-r--r-- | src/Total/Reduction.idr | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Total/Reduction.idr b/src/Total/Reduction.idr index 4870f30..cb13706 100644 --- a/src/Total/Reduction.idr +++ b/src/Total/Reduction.idr @@ -95,3 +95,8 @@ wknStep (RecCong2 step) = RecCong2 (wknStep step) wknStep (RecCong3 step) = RecCong3 (wknStep step) wknStep RecZero = RecZero wknStep RecSuc = RecSuc + +export +wknSteps : t >= u -> wkn t thin >= wkn u thin +wknSteps [<] = [<] +wknSteps (steps :< step) = wknSteps steps :< wknStep step |