TSTP Solution File: GEO093-1 by cvc5---1.0.5
View Problem
- Process Solution
%------------------------------------------------------------------------------
% File : cvc5---1.0.5
% Problem : GEO093-1 : TPTP v8.1.2. Released v2.4.0.
% Transfm : none
% Format : tptp
% Command : do_cvc5 %s %d
% Computer : n010.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 : Wed Aug 30 22:49:40 EDT 2023
% Result : Unsatisfiable 52.35s 52.60s
% Output : Proof 52.35s
% Verified :
% SZS Type : -
% Comments :
%------------------------------------------------------------------------------
%----WARNING: Could not form TPTP format derivation
%------------------------------------------------------------------------------
%----ORIGINAL SYSTEM OUTPUT
% 0.07/0.14 % Problem : GEO093-1 : TPTP v8.1.2. Released v2.4.0.
% 0.07/0.15 % Command : do_cvc5 %s %d
% 0.16/0.35 % Computer : n010.cluster.edu
% 0.16/0.35 % Model : x86_64 x86_64
% 0.16/0.35 % CPU : Intel(R) Xeon(R) CPU E5-2620 v4 @ 2.10GHz
% 0.16/0.35 % Memory : 8042.1875MB
% 0.16/0.35 % OS : Linux 3.10.0-693.el7.x86_64
% 0.16/0.35 % CPULimit : 300
% 0.16/0.35 % WCLimit : 300
% 0.16/0.35 % DateTime : Tue Aug 29 20:35:49 EDT 2023
% 0.16/0.35 % CPUTime :
% 0.21/0.47 %----Proving TF0_NAR, FOF, or CNF
% 0.21/0.47 ------- convert to smt2 : /export/starexec/sandbox2/tmp/tmp.CcfAfMypzm/cvc5---1.0.5_19826.p...
% 0.21/0.48 ------- get file name : TPTP file name is GEO093-1
% 0.21/0.48 ------- cvc5-fof : /export/starexec/sandbox2/solver/bin/cvc5---1.0.5_19826.smt2...
% 0.21/0.48 --- Run --decision=internal --simplification=none --no-inst-no-entail --no-cbqi --full-saturate-quant at 10...
% 10.41/10.62 --- Run --no-e-matching --full-saturate-quant at 5...
% 15.36/15.67 --- Run --no-e-matching --enum-inst-sum --full-saturate-quant at 5...
% 20.50/20.70 --- Run --finite-model-find --uf-ss=no-minimal at 5...
% 25.50/25.73 --- Run --multi-trigger-when-single --full-saturate-quant at 5...
% 30.60/30.83 --- Run --trigger-sel=max --full-saturate-quant at 5...
% 35.58/35.94 --- Run --multi-trigger-when-single --multi-trigger-priority --full-saturate-quant at 5...
% 40.82/41.04 --- Run --multi-trigger-cache --full-saturate-quant at 5...
% 46.10/46.38 --- Run --prenex-quant=none --full-saturate-quant at 5...
% 51.29/51.54 --- Run --enum-inst-interleave --decision=internal --full-saturate-quant at 5...
% 52.35/52.60 % SZS status Unsatisfiable for GEO093-1
% 52.35/52.60 % SZS output start Proof for GEO093-1
% 52.35/52.60 (
% 52.35/52.60 (let ((_let_1 (tptp.sum tptp.sk15 tptp.sk16))) (let ((_let_2 (tptp.open _let_1))) (let ((_let_3 (not _let_2))) (let ((_let_4 (tptp.part_of tptp.sk16 tptp.sk14))) (let ((_let_5 (tptp.part_of tptp.sk15 tptp.sk14))) (let ((_let_6 (tptp.open tptp.sk14))) (let ((_let_7 (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.part_of A B)) (= A B) (tptp.open A))))) (let ((_let_8 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk2 A B C))) (or (not (tptp.incident_c _let_1 A)) (not (tptp.incident_c _let_1 C)) (= C (tptp.sum B A))))))) (let ((_let_9 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk2 A B C))) (or (tptp.incident_c _let_1 C) (tptp.incident_c _let_1 B) (tptp.incident_c _let_1 A) (= C (tptp.sum B A))))))) (let ((_let_10 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (= A (tptp.sum B C))) (not (tptp.incident_c D B)) (tptp.incident_c D A))))) (let ((_let_11 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (= A (tptp.sum B C))) (not (tptp.incident_c D A)) (tptp.incident_c D B) (tptp.incident_c D C))))) (let ((_let_12 (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c (tptp.ax0_sk1 A B) B)) (tptp.part_of A B))))) (let ((_let_13 (forall ((A $$unsorted) (B $$unsorted)) (or (tptp.incident_c (tptp.ax0_sk1 A B) A) (tptp.part_of A B))))) (let ((_let_14 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.part_of A B)) (not (tptp.incident_c C A)) (tptp.incident_c C B))))) (let ((_let_15 (= tptp.sk14 _let_1))) (let ((_let_16 (ASSUME :args (_let_6)))) (let ((_let_17 (ASSUME :args (_let_3)))) (let ((_let_18 (tptp.part_of _let_1 tptp.sk14))) (let ((_let_19 (not _let_18))) (let ((_let_20 (or _let_19 _let_15 _let_2))) (let ((_let_21 (_let_7))) (let ((_let_22 (ASSUME :args _let_21))) (let ((_let_23 (tptp.ax0_sk1 _let_1 tptp.sk14))) (let ((_let_24 (tptp.incident_c _let_23 _let_1))) (let ((_let_25 (or _let_24 _let_18))) (let ((_let_26 (tptp.incident_c _let_23 tptp.sk14))) (let ((_let_27 (not _let_26))) (let ((_let_28 (or _let_27 _let_18))) (let ((_let_29 (tptp.incident_c _let_23 tptp.sk15))) (let ((_let_30 (not _let_29))) (let ((_let_31 (not _let_5))) (let ((_let_32 (or _let_31 _let_30 _let_26))) (let ((_let_33 (tptp.incident_c _let_23 tptp.sk16))) (let ((_let_34 (not _let_24))) (let ((_let_35 (or _let_34 _let_29 _let_33))) (let ((_let_36 (tptp.sum tptp.sk16 tptp.sk14))) (let ((_let_37 (tptp.incident_c _let_23 _let_36))) (let ((_let_38 (not _let_33))) (let ((_let_39 (or _let_38 _let_37))) (let ((_let_40 (= tptp.sk14 _let_36))) (let ((_let_41 (_let_13))) (let ((_let_42 (ASSUME :args _let_41))) (let ((_let_43 (_let_12))) (let ((_let_44 (ASSUME :args _let_43))) (let ((_let_45 (_let_14))) (let ((_let_46 (ASSUME :args _let_45))) (let ((_let_47 (forall ((B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.incident_c D (tptp.sum B C))) (tptp.incident_c D B) (tptp.incident_c D C))))) (let ((_let_48 (EQ_RESOLVE (ASSUME :args (_let_11)) (MACRO_SR_EQ_INTRO :args (_let_11 SB_DEFAULT SBA_FIXPOINT))))) (let ((_let_49 (forall ((B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.incident_c D B)) (tptp.incident_c D (tptp.sum B C)))))) (let ((_let_50 (EQ_RESOLVE (ASSUME :args (_let_10)) (MACRO_SR_EQ_INTRO :args (_let_10 SB_DEFAULT SBA_FIXPOINT))))) (let ((_let_51 (tptp.ax0_sk2 tptp.sk14 tptp.sk16 tptp.sk14))) (let ((_let_52 (tptp.incident_c _let_51 tptp.sk14))) (let ((_let_53 (not _let_52))) (let ((_let_54 (or _let_53 _let_53 _let_40))) (let ((_let_55 (tptp.incident_c _let_51 tptp.sk16))) (let ((_let_56 (or _let_52 _let_55 _let_52 _let_40))) (let ((_let_57 (not _let_55))) (let ((_let_58 (not _let_4))) (let ((_let_59 (or _let_58 _let_57 _let_52))) (let ((_let_60 (_let_8))) (let ((_let_61 (ASSUME :args _let_60))) (let ((_let_62 (tptp.sk14 tptp.sk16 tptp.sk14 QUANTIFIERS_INST_ENUM))) (let ((_let_63 (_let_9))) (let ((_let_64 (ASSUME :args _let_63))) (let ((_let_65 (or))) (let ((_let_66 (and _let_27 _let_40))) (let ((_let_67 (_let_27 _let_40))) (let ((_let_68 (ASSUME :args (_let_27)))) (let ((_let_69 (ASSUME :args (_let_40)))) (let ((_let_70 (not _let_15))) (let ((_let_71 (not _let_6))) (let ((_let_72 (ASSUME :args (_let_15)))) (SCOPE (SCOPE (MACRO_RESOLUTION_TRUST (REORDERING (EQ_RESOLVE (NOT_AND (MACRO_SR_PRED_TRANSFORM (SCOPE (AND_INTRO _let_16 _let_72 _let_17) :args (_let_6 _let_3 _let_15)) (SCOPE (MACRO_SR_PRED_ELIM (TRANS (SYMM (FALSE_INTRO _let_17)) (CONG (SYMM _let_72) :args (APPLY_UF tptp.open)) (TRUE_INTRO _let_16))) :args (_let_6 _let_15 _let_3)) :args ((not (and _let_6 _let_3 _let_15)) SB_LITERAL))) (CONG (REFL :args (_let_71)) (MACRO_SR_PRED_INTRO :args ((= (not _let_3) _let_2))) (REFL :args (_let_70)) :args _let_65)) :args ((or _let_2 _let_71 _let_70))) (MACRO_RESOLUTION_TRUST (REORDERING (CNF_OR_POS :args (_let_20)) :args ((or _let_2 _let_19 _let_15 (not _let_20)))) _let_17 (MACRO_RESOLUTION_TRUST (EQ_RESOLVE (RESOLUTION (CNF_AND_NEG :args (_let_66)) (IMPLIES_ELIM (SCOPE (MODUS_PONENS (AND_INTRO _let_68 _let_69) (SCOPE (FALSE_ELIM (TRANS (CONG (REFL :args (_let_23)) (SYMM _let_69) :args (APPLY_UF tptp.incident_c)) (FALSE_INTRO _let_68))) :args _let_67)) :args _let_67)) :args (true _let_66)) (CONG (MACRO_SR_PRED_INTRO :args ((= (not _let_27) _let_26))) (REFL :args ((not _let_40))) (REFL :args ((not _let_37))) :args _let_65)) (MACRO_RESOLUTION_TRUST (REORDERING (CNF_OR_POS :args (_let_59)) :args ((or _let_58 _let_52 _let_57 (not _let_59)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_46 :args (tptp.sk16 tptp.sk14 _let_51 QUANTIFIERS_INST_CBQI_CONFLICT)) :args _let_45)) _let_46 :args (_let_59 false _let_14)) (ASSUME :args (_let_4)) (REORDERING (FACTORING (CNF_OR_POS :args (_let_56))) :args ((or _let_52 _let_55 _let_40 (not _let_56)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_64 :args _let_62) :args _let_63)) _let_64 :args (_let_56 false _let_9)) (REORDERING (FACTORING (CNF_OR_POS :args (_let_54))) :args ((or _let_40 _let_53 (not _let_54)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_61 :args _let_62) :args _let_60)) _let_61 :args (_let_54 false _let_8)) :args (_let_40 false _let_59 false _let_4 false _let_55 false _let_56 true _let_52 false _let_54)) (REORDERING (CNF_OR_POS :args (_let_39)) :args ((or _let_38 _let_37 (not _let_39)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_50 :args (tptp.sk16 tptp.sk14 _let_23 QUANTIFIERS_INST_E_MATCHING ((not (= (tptp.incident_c D (tptp.sum B C)) true))))) :args (_let_49))) _let_50 :args (_let_39 false _let_49)) (REORDERING (CNF_OR_POS :args (_let_35)) :args ((or _let_34 _let_29 _let_33 (not _let_35)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_48 :args (tptp.sk15 tptp.sk16 _let_23 QUANTIFIERS_INST_E_MATCHING ((not (= (tptp.incident_c D (tptp.sum B C)) false))))) :args (_let_47))) _let_48 :args (_let_35 false _let_47)) (REORDERING (CNF_OR_POS :args (_let_32)) :args ((or _let_31 _let_26 _let_30 (not _let_32)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_46 :args (tptp.sk15 tptp.sk14 _let_23 QUANTIFIERS_INST_CBQI_CONFLICT)) :args _let_45)) _let_46 :args (_let_32 false _let_14)) (ASSUME :args (_let_5)) (REORDERING (CNF_OR_POS :args (_let_28)) :args ((or _let_18 _let_27 (not _let_28)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_44 :args (_let_1 tptp.sk14 QUANTIFIERS_INST_E_MATCHING_SIMPLE ((not (= (tptp.part_of A B) true))))) :args _let_43)) _let_44 :args (_let_28 false _let_12)) (REORDERING (CNF_OR_POS :args (_let_25)) :args ((or _let_18 _let_24 (not _let_25)))) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (SCOPE (INSTANTIATE _let_42 :args (_let_1 tptp.sk14 QUANTIFIERS_INST_E_MATCHING_SIMPLE ((not (= (tptp.part_of A B) true))))) :args _let_41)) _let_42 :args (_let_25 false _let_13)) :args (_let_18 false _let_40 false _let_37 false _let_39 false _let_33 false _let_35 true _let_29 false _let_32 false _let_5 true _let_26 false _let_28 false _let_24 false _let_25)) (MACRO_RESOLUTION_TRUST (IMPLIES_ELIM (MACRO_SR_PRED_ELIM (SCOPE (INSTANTIATE _let_22 :args (_let_1 tptp.sk14 QUANTIFIERS_INST_ENUM)) :args _let_21))) _let_22 :args (_let_20 false _let_7)) :args (_let_15 true _let_2 false _let_18 false _let_20)) _let_17 _let_16 :args (false false _let_15 true _let_2 false _let_6)) :args (_let_14 _let_13 _let_12 _let_11 _let_10 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (= A (tptp.sum B C))) (not (tptp.incident_c D C)) (tptp.incident_c D A))) _let_9 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.incident_c (tptp.ax0_sk2 A B C) C))) (or _let_1 (not _let_1) (= C (tptp.sum B A))))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk2 A B C))) (let ((_let_2 (tptp.incident_c _let_1 B))) (or (not _let_2) _let_2 (tptp.incident_c _let_1 A) (= C (tptp.sum B A)))))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk2 A B C))) (let ((_let_2 (tptp.incident_c _let_1 A))) (or (not _let_2) (tptp.incident_c _let_1 B) _let_2 (= C (tptp.sum B A)))))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk2 A B C))) (or (not (tptp.incident_c _let_1 B)) (not (tptp.incident_c _let_1 C)) (= C (tptp.sum B A))))) _let_8 (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.end_point A B)) (tptp.incident_c A B))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.end_point A B)) (not (tptp.part_of C B)) (not (tptp.part_of D B)) (not (tptp.incident_c A C)) (not (tptp.incident_c A D)) (tptp.part_of C D) (tptp.part_of D C))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (tptp.part_of (tptp.ax0_sk3 B A) B) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (tptp.part_of (tptp.ax0_sk4 B A) B) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (tptp.incident_c A (tptp.ax0_sk3 B A)) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (tptp.incident_c A (tptp.ax0_sk4 B A)) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (not (tptp.part_of (tptp.ax0_sk3 B A) (tptp.ax0_sk4 B A))) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (not (tptp.part_of (tptp.ax0_sk4 B A) (tptp.ax0_sk3 B A))) (tptp.end_point A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.inner_point A B)) (tptp.incident_c A B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.inner_point A B)) (not (tptp.end_point A B)))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.incident_c A B)) (tptp.end_point A B) (tptp.inner_point A B))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.meet A B C)) (tptp.incident_c A B))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.meet A B C)) (tptp.incident_c A C))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.meet A B C)) (not (tptp.incident_c D B)) (not (tptp.incident_c D C)) (tptp.end_point D B))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.meet A B C)) (not (tptp.incident_c D B)) (not (tptp.incident_c D C)) (tptp.end_point D C))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.incident_c A B)) (not (tptp.incident_c A C)) (tptp.incident_c (tptp.ax0_sk5 C B A) B) (tptp.meet A B C))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.incident_c A B)) (not (tptp.incident_c A C)) (tptp.incident_c (tptp.ax0_sk5 C B A) C) (tptp.meet A B C))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (let ((_let_1 (tptp.ax0_sk5 C B A))) (or (not (tptp.incident_c A B)) (not (tptp.incident_c A C)) (not (tptp.end_point _let_1 B)) (not (tptp.end_point _let_1 C)) (tptp.meet A B C)))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.closed A)) (not (tptp.end_point B A)))) (forall ((A $$unsorted)) (or (tptp.end_point (tptp.ax0_sk6 A) A) (tptp.closed A))) (forall ((A $$unsorted)) (or (not (tptp.open A)) (tptp.end_point (tptp.ax0_sk7 A) A))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.end_point A B)) (tptp.open B))) _let_7 (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted) (E $$unsorted)) (or (not (tptp.part_of A B)) (not (tptp.part_of C B)) (not (tptp.part_of D B)) (not (tptp.end_point E A)) (not (tptp.end_point E C)) (not (tptp.end_point E D)) (tptp.part_of C D) (tptp.part_of D C) (tptp.part_of A C) (tptp.part_of C A) (tptp.part_of A D) (tptp.part_of D A))) (forall ((A $$unsorted)) (tptp.inner_point (tptp.ax0_sk8 A) A)) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.inner_point A B)) (tptp.meet A (tptp.ax0_sk9 A B) (tptp.ax0_sk10 A B)))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.inner_point A B)) (= B (tptp.sum (tptp.ax0_sk9 A B) (tptp.ax0_sk10 A B))))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted)) (or (not (tptp.end_point A B)) (not (tptp.end_point C B)) (not (tptp.end_point D B)) (= A C) (= A D) (= C D))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.end_point A B)) (tptp.end_point (tptp.ax0_sk11 A B) B))) (forall ((A $$unsorted) (B $$unsorted)) (or (not (tptp.end_point A B)) (not (= A (tptp.ax0_sk11 A B))))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted) (D $$unsorted) (E $$unsorted)) (or (not (tptp.closed A)) (not (tptp.meet B C D)) (not (= A (tptp.sum C D))) (not (tptp.end_point E C)) (tptp.meet E C D))) (forall ((A $$unsorted) (B $$unsorted) (C $$unsorted)) (or (not (tptp.meet A B C)) (= (tptp.ax0_sk12 C B) (tptp.sum B C)))) (forall ((A $$unsorted) (B $$unsorted)) (let ((_let_1 (tptp.ax0_sk13 A B))) (or (tptp.incident_c _let_1 B) (tptp.incident_c _let_1 A) (= B A)))) (forall ((A $$unsorted) (B $$unsorted)) (let ((_let_1 (tptp.incident_c (tptp.ax0_sk13 A B) B))) (or _let_1 (not _let_1) (= B A)))) (forall ((A $$unsorted) (B $$unsorted)) (let ((_let_1 (tptp.incident_c (tptp.ax0_sk13 A B) A))) (or (not _let_1) _let_1 (= B A)))) (forall ((A $$unsorted) (B $$unsorted)) (let ((_let_1 (tptp.ax0_sk13 A B))) (or (not (tptp.incident_c _let_1 A)) (not (tptp.incident_c _let_1 B)) (= B A)))) _let_6 _let_5 _let_4 (tptp.meet tptp.sk17 tptp.sk15 tptp.sk16) _let_3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
% 52.35/52.60 )
% 52.35/52.61 % SZS output end Proof for GEO093-1
% 52.35/52.61 % cvc5---1.0.5 exiting
% 52.35/52.61 % cvc5---1.0.5 exiting
%------------------------------------------------------------------------------