diff options
| -rw-r--r-- | contrib/correctness/ptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml index 7bcc3a6579..dbae1fce5a 100644 --- a/contrib/correctness/ptactic.ml +++ b/contrib/correctness/ptactic.ml @@ -109,7 +109,7 @@ let wf_nat_pattern = PApp (PRef well_founded, [| PRef nat; PRef lt |]) (* ["((well_founded Z (Zwf ?1))"] *) let wf_z_pattern = - let zwf = ConstRef (coq_constant ["correctness";"ProgWf"] "Zwf") in + let zwf = ConstRef (coq_constant ["ZArith";"Zwf"] "Zwf") in PApp (PRef well_founded, [| PRef z; PApp (PRef zwf, [| PMeta (Some 1) |]) |]) (* ["(and ?1 ?2)"] *) let and_pattern = |