TSTP Solution File: LCL798-1 by Z3---4.8.9.0
View Problem
- Process Solution
%------------------------------------------------------------------------------
% File : Z3---4.8.9.0
% Problem : LCL798-1 : TPTP v8.1.0. Released v4.1.0.
% Transfm : none
% Format : tptp
% Command : z3_tptp -proof -model -t:%d -file:%s
% Computer : n028.cluster.edu
% Model : x86_64 x86_64
% CPU : Intel(R) Xeon(R) CPU E5-2620 v4 2.10GHz
% Memory : 8042.1875MB
% OS : Linux 3.10.0-693.el7.x86_64
% CPULimit : 300s
% WCLimit : 300s
% DateTime : Sun Sep 18 04:58:23 EDT 2022
% Result : Unsatisfiable 0.12s 0.40s
% Output : Proof 0.20s
% Verified :
% SZS Type : Refutation
% Derivation depth : 6
% Number of leaves : 26
% Syntax : Number of formulae : 40 ( 11 unt; 11 typ; 0 def)
% Number of atoms : 176 ( 0 equ)
% Maximal formula atoms : 16 ( 6 avg)
% Number of connectives : 266 ( 127 ~; 123 |; 0 &)
% ( 16 <=>; 0 =>; 0 <=; 0 <~>)
% Maximal formula depth : 12 ( 6 avg)
% Maximal term depth : 2 ( 1 avg)
% Number of FOOLs : 8 ( 8 fml; 0 var)
% Number of types : 2 ( 0 usr)
% Number of type conns : 11 ( 4 >; 7 *; 0 +; 0 <<)
% Number of predicates : 7 ( 6 usr; 1 prp; 0-3 aty)
% Number of functors : 9 ( 9 usr; 7 con; 0-4 aty)
% Number of variables : 84 ( 76 !; 0 ?; 84 :)
% Comments :
%------------------------------------------------------------------------------
tff(c_InductTermi_OIT_type,type,
c_InductTermi_OIT: $i > $o ).
tff(c_Lambda_Osubst_type,type,
c_Lambda_Osubst: ( $i * $i * $i ) > $i ).
tff(v_i_____type,type,
v_i____: $i ).
tff(v_u_____type,type,
v_u____: $i ).
tff(v_a_____type,type,
v_a____: $i ).
tff(c_Type_Otyping_type,type,
c_Type_Otyping: ( $i * $i * $i ) > $o ).
tff(v_T_H_H_____type,type,
v_T_H_H____: $i ).
tff(c_Type_Oshift_type,type,
c_Type_Oshift: ( $i * $i * $i * $i ) > $i ).
tff(tc_Type_Otype_type,type,
tc_Type_Otype: $i ).
tff(v_T_____type,type,
v_T____: $i ).
tff(v_e_____type,type,
v_e____: $i ).
tff(1,plain,
( ~ c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
<=> ~ c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)) ),
inference(rewrite,[status(thm)],]) ).
tff(2,axiom,
~ c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)),
file('/export/starexec/sandbox2/benchmark/theBenchmark.p',cls_conjecture_0) ).
tff(3,plain,
~ c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)),
inference(modus_ponens,[status(thm)],[2,1]) ).
tff(4,plain,
( c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
<=> c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____) ),
inference(rewrite,[status(thm)],]) ).
tff(5,axiom,
c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____),
file('/export/starexec/sandbox2/benchmark/theBenchmark.p',cls_CHAINED_0_03) ).
tff(6,plain,
c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____),
inference(modus_ponens,[status(thm)],[5,4]) ).
tff(7,plain,
( c_Type_Otyping(v_e____,v_u____,v_T____)
<=> c_Type_Otyping(v_e____,v_u____,v_T____) ),
inference(rewrite,[status(thm)],]) ).
tff(8,axiom,
c_Type_Otyping(v_e____,v_u____,v_T____),
file('/export/starexec/sandbox2/benchmark/theBenchmark.p',cls_CHAINED_0_01) ).
tff(9,plain,
c_Type_Otyping(v_e____,v_u____,v_T____),
inference(modus_ponens,[status(thm)],[8,7]) ).
tff(10,plain,
^ [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
refl(
( ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
<=> ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) )),
inference(bind,[status(th)],]) ).
tff(11,plain,
( ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
<=> ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) ),
inference(quant_intro,[status(thm)],[10]) ).
tff(12,plain,
( ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
<=> ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) ),
inference(rewrite,[status(thm)],]) ).
tff(13,plain,
^ [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
trans(
monotonicity(
rewrite(
( ( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| ~ c_InductTermi_OIT(V_u) )
<=> ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) )),
( ( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) )
<=> ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) ) )),
rewrite(
( ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) )
<=> ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) )),
( ( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) )
<=> ( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) )),
inference(bind,[status(th)],]) ).
tff(14,plain,
( ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) )
<=> ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ) ),
inference(quant_intro,[status(thm)],[13]) ).
tff(15,axiom,
! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i))
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H) ),
file('/export/starexec/sandbox2/benchmark/theBenchmark.p',cls_CHAINED_0) ).
tff(16,plain,
! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ),
inference(modus_ponens,[status(thm)],[15,14]) ).
tff(17,plain,
! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ),
inference(modus_ponens,[status(thm)],[16,12]) ).
tff(18,plain,
! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ),
inference(skolemize,[status(sab)],[17]) ).
tff(19,plain,
! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) ),
inference(modus_ponens,[status(thm)],[18,11]) ).
tff(20,plain,
( c_InductTermi_OIT(v_u____)
<=> c_InductTermi_OIT(v_u____) ),
inference(rewrite,[status(thm)],]) ).
tff(21,axiom,
c_InductTermi_OIT(v_u____),
file('/export/starexec/sandbox2/benchmark/theBenchmark.p',cls_uIT_0) ).
tff(22,plain,
c_InductTermi_OIT(v_u____),
inference(modus_ponens,[status(thm)],[21,20]) ).
tff(23,plain,
( ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) )
<=> ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) ) ),
inference(rewrite,[status(thm)],]) ).
tff(24,plain,
( ( ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)) )
<=> ( c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) ) ),
inference(rewrite,[status(thm)],]) ).
tff(25,plain,
( ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)) )
<=> ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) ) ),
inference(monotonicity,[status(thm)],[24]) ).
tff(26,plain,
( ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)) )
<=> ( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) ) ),
inference(transitivity,[status(thm)],[25,23]) ).
tff(27,plain,
( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____)) ),
inference(quant_inst,[status(thm)],]) ).
tff(28,plain,
( ~ ! [V_i: $i,V_T_H: $i,V_u: $i,V_e: $i] :
( ~ c_InductTermi_OIT(V_u)
| ~ c_Type_Otyping(c_Type_Oshift(V_e,V_i,v_T____,tc_Type_Otype),v_a____,V_T_H)
| ~ c_Type_Otyping(V_e,V_u,v_T____)
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,V_u,V_i)) )
| c_InductTermi_OIT(c_Lambda_Osubst(v_a____,v_u____,v_i____))
| ~ c_InductTermi_OIT(v_u____)
| ~ c_Type_Otyping(c_Type_Oshift(v_e____,v_i____,v_T____,tc_Type_Otype),v_a____,v_T_H_H____)
| ~ c_Type_Otyping(v_e____,v_u____,v_T____) ),
inference(modus_ponens,[status(thm)],[27,26]) ).
tff(29,plain,
$false,
inference(unit_resolution,[status(thm)],[28,22,19,9,6,3]) ).
%------------------------------------------------------------------------------
%----ORIGINAL SYSTEM OUTPUT
% 0.10/0.12 % Problem : LCL798-1 : TPTP v8.1.0. Released v4.1.0.
% 0.10/0.12 % Command : z3_tptp -proof -model -t:%d -file:%s
% 0.12/0.33 % Computer : n028.cluster.edu
% 0.12/0.33 % Model : x86_64 x86_64
% 0.12/0.33 % CPU : Intel(R) Xeon(R) CPU E5-2620 v4 @ 2.10GHz
% 0.12/0.33 % Memory : 8042.1875MB
% 0.12/0.33 % OS : Linux 3.10.0-693.el7.x86_64
% 0.12/0.33 % CPULimit : 300
% 0.12/0.33 % WCLimit : 300
% 0.12/0.33 % DateTime : Fri Sep 2 01:12:36 EDT 2022
% 0.12/0.33 % CPUTime :
% 0.12/0.34 Z3tptp [4.8.9.0] (c) 2006-20**. Microsoft Corp.
% 0.12/0.34 Usage: tptp [options] [-file:]file
% 0.12/0.34 -h, -? prints this message.
% 0.12/0.34 -smt2 print SMT-LIB2 benchmark.
% 0.12/0.34 -m, -model generate model.
% 0.12/0.34 -p, -proof generate proof.
% 0.12/0.34 -c, -core generate unsat core of named formulas.
% 0.12/0.34 -st, -statistics display statistics.
% 0.12/0.34 -t:timeout set timeout (in second).
% 0.12/0.34 -smt2status display status in smt2 format instead of SZS.
% 0.12/0.34 -check_status check the status produced by Z3 against annotation in benchmark.
% 0.12/0.34 -<param>:<value> configuration parameter and value.
% 0.12/0.34 -o:<output-file> file to place output in.
% 0.12/0.40 % SZS status Unsatisfiable
% 0.12/0.40 % SZS output start Proof
% See solution above
%------------------------------------------------------------------------------