diff options
| author | Maxime Dénès | 2019-07-26 10:00:39 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-07-26 10:00:39 +0200 |
| commit | 9b7b34702f1134841f7f9408db27074b5479e07d (patch) | |
| tree | 4ac3f6473bfe707194c56491bbbb7c7d582eed57 | |
| parent | 3823ace92d92b2f5ee697ff156fe72d55217a921 (diff) | |
| parent | 72029c8b00126f92c8f8e8d73e6c27b0b0a8b685 (diff) | |
Merge PR #10568: Mark primitive integers as able to participate in reductions (fixes #10560).
Reviewed-by: maximedenes
Reviewed-by: ppedrot
| -rw-r--r-- | kernel/cClosure.ml | 2 | ||||
| -rw-r--r-- | test-suite/bugs/closed/bug_10560.v | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 1cc3dc3975..3fd613e905 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -1075,7 +1075,7 @@ module FNativeEntries = let mkInt env i = check_int env; - { mark = mark Norm KnownR; term = FInt i } + { mark = mark Cstr KnownR; term = FInt i } let mkBool env b = check_bool env; diff --git a/test-suite/bugs/closed/bug_10560.v b/test-suite/bugs/closed/bug_10560.v new file mode 100644 index 0000000000..a9a0949d9a --- /dev/null +++ b/test-suite/bugs/closed/bug_10560.v @@ -0,0 +1,9 @@ +From Coq Require Import Int63. +Open Scope int63_scope. + +Lemma foo : + let n := opp 0 in add n 0 = n. +Proof. +cbv. +apply eq_refl. +Qed. |