Insufficient number of user-defined domains

Copy SQL

WITH fk as (select
(select nspname from pg_namespace where oid=c.relnamespace) as target_schema,
c.relname as target_table,
c.oid as target_table_oid,
o.conkey AS target_col
from pg_constraint o inner join pg_class c on c.oid = o.conrelid
inner join pg_class f on f.oid = o.confrelid
where o.contype = 'f'),
fk_unnest as (select target_schema, target_table, target_table_oid, target_col, target_col_num, ordin
from fk, unnest(fk. target_col) with ordinality as f(target_col_num, ordin)),
fk_with_names as (select target_schema, target_table, a_target.attname as target_col
from fk_unnest fk inner join pg_attribute a_target on fk.target_col_num = a_target.attnum and fk.target_table_oid = a_target.attrelid and a_target.attisdropped = false),
domains AS (SELECT domain_schema, domain_name
FROM Information_schema.domains AS d
WHERE domain_schema NOT IN (SELECT schema_name
FROM INFORMATION_SCHEMA.schemata
WHERE schema_name<>'public' AND
schema_owner='postgres' AND schema_name IS NOT NULL)
AND (SELECT Count(*) 
FROM Information_schema.columns AS c INNER JOIN Information_schema.tables AS t USING (table_schema, table_name) 
WHERE d.domain_schema=c.domain_schema 
AND d.domain_name=c.domain_name 
AND t.table_type='BASE TABLE'
AND (table_schema, table_name, c.column_name) NOT IN (SELECT target_schema, target_table, target_col
FROM fk_with_names))>=2)
SELECT 'Too few domains that are used in case of at least two non-foreign key columns of base tables, must be at least one' As comment, (SELECT Count(*) AS cnt FROM domains) AS number_of_domains
WHERE (SELECT Count(*) AS cnt FROM domains)<1;