diff options
| -rw-r--r-- | theories/Reals/Rsyntax.v | 8 | ||||
| -rw-r--r-- | theories/ZArith/Zsyntax.v | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/theories/Reals/Rsyntax.v b/theories/Reals/Rsyntax.v index 21a33391c2..dcd8f941ce 100644 --- a/theories/Reals/Rsyntax.v +++ b/theories/Reals/Rsyntax.v @@ -137,10 +137,10 @@ Syntax constr level 4: Rappl_inside [<<(REXPR (APPLIST $h ($LIST $t)))>>] - -> [ [<hov 0> "("(REXPR $h):E [1 0] (APPLINSIDETAIL ($LIST $t)):E ")"] ] - | Rappl_inside_tail [<<(APPLINSIDETAIL $h ($LIST $t))>>] - -> [(REXPR $h):E [1 0] (APPLINSIDETAIL ($LIST $t)):E] - | Rappl_inside_one [<<(APPLINSIDETAIL $e)>>] ->[(REXPR $e):E] + -> [ [<hov 0> "("(REXPR $h):E [1 0] (RAPPLINSIDETAIL ($LIST $t)):E ")"] ] + | Rappl_inside_tail [<<(RAPPLINSIDETAIL $h ($LIST $t))>>] + -> [(REXPR $h):E [1 0] (RAPPLINSIDETAIL ($LIST $t)):E] + | Rappl_inside_one [<<(RAPPLINSIDETAIL $e)>>] ->[(REXPR $e):E] | rpair_inside [<<(REXPR <<(pair $s1 $s2 $r1 $r2)>>)>>] -> [ [<hov 0> "("(REXPR $r1):E "," [1 0] (REXPR $r2):E ")"] ] ; diff --git a/theories/ZArith/Zsyntax.v b/theories/ZArith/Zsyntax.v index 92ddd5942e..a9c050191a 100644 --- a/theories/ZArith/Zsyntax.v +++ b/theories/ZArith/Zsyntax.v @@ -155,12 +155,12 @@ Syntax constr level 4: Zappl_inside [ << (ZEXPR (APPLIST $h ($LIST $t))) >> ] - -> [ [<hov 0> "("(ZEXPR $h):E [1 0] (APPLINSIDETAIL ($LIST $t)):E ")"] ] + -> [ [<hov 0> "("(ZEXPR $h):E [1 0] (ZAPPLINSIDETAIL ($LIST $t)):E ")"] ] | Zappl_inject_nat [ << (ZEXPR (APPLIST <<inject_nat>> $n)) >> ] -> [ (APPLIST <<inject_nat>> $n) ] - | Zappl_inside_tail [ << (APPLINSIDETAIL $h ($LIST $t)) >> ] - -> [(ZEXPR $h):E [1 0] (APPLINSIDETAIL ($LIST $t)):E] - | Zappl_inside_one [ << (APPLINSIDETAIL $e) >> ] ->[(ZEXPR $e):E] + | Zappl_inside_tail [ << (ZAPPLINSIDETAIL $h ($LIST $t)) >> ] + -> [(ZEXPR $h):E [1 0] (ZAPPLINSIDETAIL ($LIST $t)):E] + | Zappl_inside_one [ << (ZAPPLINSIDETAIL $e) >> ] ->[(ZEXPR $e):E] | pair_inside [ << (ZEXPR <<(pair $s1 $s2 $z1 $z2)>>) >> ] -> [ [<hov 0> "("(ZEXPR $z1):E "," [1 0] (ZEXPR $z2):E ")"] ] ; |