add type finiteness annotations for maps, sets, and bags

theories/bag.why

@@ -7,6 +7,9 @@ theory Bag
 
   type bag 'a
 
+  (** whatever ['a], the type [bag 'a] is always infinite *)
+  meta "infinite_type" type bag
+
   (** the most basic operation is the number of occurrences *)
 
   function nb_occ (x: 'a) (b: bag 'a): int

theories/map.why

@@ -7,6 +7,10 @@ theory Map
 
   type map 'a 'b
 
+  (** if ['a] or ['b] are infinite types, then [map 'a 'b] is infinite *)
+  meta "material_type_arg" type map, 0
+  meta "material_type_arg" type map, 1
+
   function get (map 'a 'b) 'a : 'b
   function set (map 'a 'b) 'a 'b : map 'a 'b
 

theories/set.why

@@ -7,6 +7,9 @@ theory SetGen
 
   type set 'a
 
+  (** if ['a] is an infinite type, then [set 'a] is infinite *)
+  meta "material_type_arg" type set, 0
+
   (** membership *)
   predicate mem 'a (set 'a)