Skip to content

A tweak for the cong! tactic #2310

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 19 commits into from
Mar 18, 2024
Merged

A tweak for the cong! tactic #2310

Changes from 1 commit
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
b04439d
⌞_⌟ for marking spots to rewrite.
uncle-betty Mar 4, 2024
3258d12
Added documentation.
uncle-betty Mar 6, 2024
b1065a3
In case of failure, try swapping the RHS with the LHS. Fixes ≡˘⟨ ... ⟩.
uncle-betty Mar 7, 2024
3a5cc94
Added comments.
uncle-betty Mar 7, 2024
be08140
Merge branch 'master' into cong-tweak
uncle-betty Mar 8, 2024
9a26cb0
More clarity. Less redundancy.
uncle-betty Mar 8, 2024
ac7650d
Fixed performance regression.
uncle-betty Mar 8, 2024
aaa0e32
Changelog entry.
uncle-betty Mar 8, 2024
02b92a3
cong!-specific combinators instead of catchTC.
uncle-betty Mar 8, 2024
4a37b04
Support other reasoning modules.
uncle-betty Mar 11, 2024
ab4a102
Clarifying comment.
uncle-betty Mar 11, 2024
6a17a40
Merge branch 'master' into cong-tweak
uncle-betty Mar 11, 2024
0a73d75
Slight performance boost.
uncle-betty Mar 11, 2024
8b58264
Go back to catchTC.
uncle-betty Mar 15, 2024
fd158d0
Merge branch 'master' into cong-tweak
uncle-betty Mar 15, 2024
b26ca08
Fix example after merge.
uncle-betty Mar 15, 2024
71812c1
Use renamed backward step.
uncle-betty Mar 15, 2024
6756add
Language tweaks.
uncle-betty Mar 16, 2024
de81cad
Merge branch 'master' into cong-tweak
MatthewDaggitt Mar 18, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions src/Tactic/Cong.agda
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -55,6 +55,9 @@ open import Reflection.AST.Term as Term

open import Reflection.TCM.Syntax

⌞_⌟ : ∀ {a} {A : Set a} → A → A
⌞_⌟ x = x

------------------------------------------------------------------------
-- Utilities
------------------------------------------------------------------------
Expand Down Expand Up @@ -136,6 +139,8 @@ private
antiUnifyClauses : ℕ → Clauses → Clauses → Maybe Clauses
antiUnifyClause : ℕ → Clause → Clause → Maybe Clause

pattern apply-⌞⌟ t = (def (quote ⌞_⌟) (_ ∷ _ ∷ arg _ t ∷ []))

antiUnify ϕ (var x args) (var y args') with x ℕ.≡ᵇ y | antiUnifyArgs ϕ args args'
... | _ | nothing = var ϕ []
... | false | just uargs = var ϕ uargs
Expand All @@ -144,6 +149,7 @@ private
... | _ | nothing = var ϕ []
... | false | just uargs = var ϕ []
... | true | just uargs = con c uargs
antiUnify ϕ (def f args) (apply-⌞⌟ t) = antiUnify ϕ (def f args) t
antiUnify ϕ (def f args) (def f' args') with f Name.≡ᵇ f' | antiUnifyArgs ϕ args args'
... | _ | nothing = var ϕ []
... | false | just uargs = var ϕ []
Expand Down