Fix nested generics and phantom-types, and handle list special case

List of pairs are actually encoded as 'map'.

crates/aiken-project/src/blueprint/validator.rs

@@ -529,4 +529,54 @@ mod test {
             ),
         )
     }
+
+    #[test]
+    fn validator_phantom_and_opaque_types() {
+        assert_validator(
+            r#"
+            type Dict<key, value> {
+                inner: List<(ByteArray, value)>
+            }
+
+            type UUID { UUID }
+
+            fn mint(redeemer: Dict<UUID, Int>, ctx: Void) {
+                True
+            }
+            "#,
+            json!(
+                {
+                  "title": "test_module",
+                  "purpose": "mint",
+                  "hash": "da4a98cee05a17be402b07c414d59bf894c9ebd0487186417121de8f",
+                  "redeemer": {
+                    "title": "Dict",
+                    "anyOf": [
+                      {
+                        "title": "Dict",
+                        "dataType": "constructor",
+                        "index": 0,
+                        "fields": [
+                          {
+                            "title": "inner",
+                            "dataType": "list",
+                            "items": {
+                              "dataType": "map",
+                              "keys": {
+                                "dataType": "bytes"
+                              },
+                              "values": {
+                                "dataType": "integer"
+                              }
+                            }
+                          }
+                        ]
+                      }
+                    ]
+                  },
+                  "compiledCode": "581d010000210872656465656d657200210363747800533357349445261601"
+                }
+            ),
+        );
+    }
 }