We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 1d547df + dcad89f commit b5c0239Copy full SHA for b5c0239
template-coq/theories/Ast.v
@@ -538,7 +538,7 @@ Notation closed t := (closedn 0 t).
538
539
Fixpoint noccur_between k n (t : term) : bool :=
540
match t with
541
- | tRel i => Nat.ltb i k && Nat.leb (k + n) i
+ | tRel i => Nat.ltb i k || Nat.leb (k + n) i
542
| tEvar ev args => List.forallb (noccur_between k n) args
543
| tLambda _ T M | tProd _ T M => noccur_between k n T && noccur_between (S k) n M
544
| tApp u v => noccur_between k n u && List.forallb (noccur_between k n) v
0 commit comments