ATermAppl d = term( "d" );
kb.addObjectProperty( p );
kb.addObjectProperty( q );
kb.addObjectProperty( r );
kb.addSubProperty( list( p, q, r ), r );
kb.addClass( C );
kb.addClass( D );
kb.addSubClass( C, some( p, some( q, some( r, all( inv( r ), D ) ) ) ) );