diff options
| author | filliatr | 2002-06-19 13:57:40 +0000 |
|---|---|---|
| committer | filliatr | 2002-06-19 13:57:40 +0000 |
| commit | 33a2a25a91b390c857d0f4cde786343323558f78 (patch) | |
| tree | 4cc7dd20bcd78978bdc1ccfb454442bfa9c103fa | |
| parent | 1afa589b280c6366c46d4c51184ee1bf5ef89f40 (diff) | |
ProgWf -> Zwf
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2796 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 = |