module _ where
open import Agda.Builtin.Unit
open import Agda.Builtin.List
open import Agda.Builtin.Reflection
record R : Set₁ where
field
N : Set
s : N → N
open R
postulate
I : Set
r : R
r = λ where
.N → I
.s x → x
macro
nf : Name → Term → TC ⊤
nf x hole = bindTC (normalise (def x [])) (unify hole)
X : R
X = nf r -- loops
r is normalised ok, but the quoteTerm call in Unquote.tcNormalise loops.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4