Commit 081c570
proof(SafeUrl): DISCHARGE appendAssociative via Data.List.Equalities
`appendQueryStrings = (++)` (Query.idr L205-206), so the goal reduces
to standard list append-associativity. Discharged via contrib's
`Data.List.Equalities.appendAssociative`.
One-line proof:
- appendAssociative qs1 qs2 qs3 = Data.List.Equalities.appendAssociative qs1 qs2 qs3
The OWED comment correctly noted this was a "stdlib-plumbing OWED, not
a fundamental gap" — just hadn't been wired up. Contrib's
`appendAssociative` is already used (imported) by this file via
`Data.List.Equalities` (added in #97 for lengthSnoc).
Refs #90 #107 #119
Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>1 parent 52a8dd3 commit 081c570
1 file changed
Lines changed: 10 additions & 7 deletions
| Original file line number | Diff line number | Diff line change | |
|---|---|---|---|
| |||
257 | 257 | | |
258 | 258 | | |
259 | 259 | | |
260 | | - | |
261 | | - | |
262 | | - | |
263 | | - | |
264 | | - | |
265 | | - | |
266 | | - | |
| 260 | + | |
| 261 | + | |
| 262 | + | |
| 263 | + | |
| 264 | + | |
| 265 | + | |
| 266 | + | |
| 267 | + | |
| 268 | + | |
| 269 | + | |
267 | 270 | | |
268 | 271 | | |
269 | 272 | | |
| |||
0 commit comments