diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-01 14:57:53 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-01 14:57:53 +0100 |
| commit | 44d467e58966792c19f363d769906ac5586d9937 (patch) | |
| tree | 5efb7d101632195077203677712af70ae01347c8 | |
| parent | b6fc70ab061b10983458d6331685c111b47af75b (diff) | |
Prove composition preserves IsNotId.
| -rw-r--r-- | src/Core/Thinning.idr | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Core/Thinning.idr b/src/Core/Thinning.idr index ecc3f47..7ef2562 100644 --- a/src/Core/Thinning.idr +++ b/src/Core/Thinning.idr @@ -175,3 +175,9 @@ compAssoc : (thin1 : sx `Thins` sy) -> thin3 . (thin2 . thin1) = (thin3 . thin2) . thin1 compAssoc thin3 thin2 thin1 = compAssoc' (view thin3) (view thin2) (view thin1) + +-- Non-Identities + +export +compPresNotId : IsNotId thin2 -> IsNotId thin1 -> IsNotId (thin2 . thin1) +compPresNotId ItIsThinner ItIsThinner = ItIsThinner |