tff(semantics,logic, $epistemic_modal == [ $domains == $constant, $designation == $rigid, $terms == $local, $modalities == $modal_system_S4 ] ). tff(customer_decl,type,customer: $tType). tff(amount_decl,type,amount: $tType). tff(geoff_decl,type,geoff: customer). tff(account_decl,type,account: (customer * $int) > $o). tff(balance_decl,type,balance_of: customer > amount). tff(bank_knows_accounts,axiom, {$knows(#bank)} @ ( ? [N: $int] : account(geoff,N) => ? [A: amount] : A = balance_of(geoff) ) ). tff(geoffs_account_42,axiom, account(geoff,42) ). tff(teller_can_know_balance,conjecture, ? [A: amount]: {$canKnow(#teller)} @ (A = balance_of(geoff)) ).