diff options
| author | Hugo Herbelin | 2020-08-18 22:49:00 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-10-05 16:19:12 +0200 |
| commit | 2fb42ce6b9b74a2c5f66e9fa9cb16745cdb85687 (patch) | |
| tree | 88d12d5f428c1dc89cb8cb272e3531a2d7a531de /theories/micromega | |
| parent | 571834b2b43e4281ef4940ee5894d8191588bb6c (diff) | |
Adapting theories to unused pattern-matching variable warning.
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 |