Add imap type, which is like map but may have have infinite size

1 files changed, 1 insertions, 1 deletions

diff --git a/Source/Dafny/Printer.cs b/Source/Dafny/Printer.cs
index 80fc1d1d..41b40bfc 100644
--- a/Source/Dafny/Printer.cs
+++ b/Source/Dafny/Printer.cs
@@ -1763,7 +1763,7 @@ namespace Microsoft.Dafny {
         var e = (MapComprehension)expr;

         bool parensNeeded = !isRightmost;

         if (parensNeeded) { wr.Write("("); }

-        wr.Write("map ");

+        wr.Write(e.Finite ? "map " : "imap ");

         string sep = "";

         foreach (BoundVar bv in e.BoundVars) {

           wr.Write("{0}{1}", sep, bv.DisplayName);