Skip to content

Commit b5c0239

Browse files
authored
Merge pull request #1087 from MevenBertrand/correct-noccur-main
Correcting the definition of noccur_between in Template – main branch
2 parents 1d547df + dcad89f commit b5c0239

File tree

1 file changed

+1
-1
lines changed
  • template-coq/theories

1 file changed

+1
-1
lines changed

template-coq/theories/Ast.v

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -538,7 +538,7 @@ Notation closed t := (closedn 0 t).
538538

539539
Fixpoint noccur_between k n (t : term) : bool :=
540540
match t with
541-
| tRel i => Nat.ltb i k && Nat.leb (k + n) i
541+
| tRel i => Nat.ltb i k || Nat.leb (k + n) i
542542
| tEvar ev args => List.forallb (noccur_between k n) args
543543
| tLambda _ T M | tProd _ T M => noccur_between k n T && noccur_between (S k) n M
544544
| tApp u v => noccur_between k n u && List.forallb (noccur_between k n) v

0 commit comments

Comments
 (0)