diff options
| author | coqbot-app[bot] | 2020-10-26 16:13:30 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-26 16:13:30 +0000 |
| commit | 970d9be15074e78ab2961cfe81a668cdf09ea4f4 (patch) | |
| tree | 8688a81c9564d7fbacec5b2585bb612dff7329a4 /theories/micromega | |
| parent | 9e7b0f9f248a1fae8e5681815bd621f182696c4f (diff) | |
| parent | 3c73900038e904e007e0e83d53ac040dfc951fb0 (diff) | |
Merge PR #12768: Granting wish #12762: warning on duplicated catch-all pattern-matching clause with unused named variable
Reviewed-by: jfehrle
Reviewed-by: vbgl
Ack-by: gares
Diffstat (limited to 'theories/micromega')
| -rw-r--r-- | theories/micromega/RingMicromega.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/micromega/RingMicromega.v b/theories/micromega/RingMicromega.v index fb7fbcf80b..f7a848d7a5 100644 --- a/theories/micromega/RingMicromega.v +++ b/theories/micromega/RingMicromega.v @@ -1122,8 +1122,8 @@ Definition simpl_cone (e:Psatz) : Psatz := end | PsatzMulE t1 t2 => match t1 , t2 with - | PsatzZ , x => PsatzZ - | x , PsatzZ => PsatzZ + | PsatzZ , _ => PsatzZ + | _ , PsatzZ => PsatzZ | PsatzC c , PsatzC c' => PsatzC (ctimes c c') | PsatzC p1 , PsatzMulE (PsatzC p2) x => PsatzMulE (PsatzC (ctimes p1 p2)) x | PsatzC p1 , PsatzMulE x (PsatzC p2) => PsatzMulE (PsatzC (ctimes p1 p2)) x |