%--------------------------------------------------------------------------
% File     : LDA014-1 : TPTP v4.1.0. Bugfixed v2.6.0.
% Domain   : LD-Algebras (Embedding algebras)
% Problem  : Let g = cr(t). Show that aag <= ag, t=a
% Version  : [Jec93] axioms : Incomplete.
% English  : This is the induction step of an induction proof.

% Refs     : [Jec93] Jech (1993), LD-Algebras
% Source   : [Jec93]
% Names    : Conjecture 1 [Jec93]

% Status   : Unsatisfiable
% Rating   : 1.00 v2.6.0
% Syntax   : Number of clauses     :   26 (   2 non-Horn;  21 unit;  20 RR)
%            Number of atoms       :   33 (  19 equality)
%            Maximal clause size   :    3 (   1 average)
%            Number of predicates  :    2 (   0 propositional; 2-2 arity)
%            Number of functors    :   20 (  17 constant; 0-2 arity)
%            Number of variables   :   21 (   0 singleton)
%            Maximal term depth    :    3 (   1 average)
% SPC      : CNF_UNS_RFO_SEQ_NHN

% Comments :
% Bugfixes : v2.6.0 - Bugfix in LDA001-0.ax
%--------------------------------------------------------------------------
%----Include Embedding algebra axioms
include('Axioms/LDA001-0.ax').
%--------------------------------------------------------------------------
cnf(clause_1,axiom,
    ( k = critical_point(aconst) )).

cnf(clause_2,axiom,
    ( aa = f(aconst,aconst) )).

cnf(clause_3,axiom,
    ( aak = f(aa,k) )).

cnf(clause_4,axiom,
    ( ak = f(aconst,k) )).

cnf(clause_5,axiom,
    ( crit_u = critical_point(u) )).

cnf(clause_6,axiom,
    ( aacrit_u = f(aa,crit_u) )).

cnf(clause_7,axiom,
    ( acrit_u = f(aconst,crit_u) )).

cnf(clause_8,axiom,
    ( crit_v = critical_point(v) )).

cnf(clause_9,axiom,
    ( aacrit_v = f(aa,crit_v) )).

cnf(clause_10,axiom,
    ( acrit_v = f(aconst,crit_v) )).

cnf(clause_11,axiom,
    ( uv = f(u,v) )).

cnf(clause_12,axiom,
    ( crit_uv = critical_point(uv) )).

cnf(clause_13,axiom,
    ( aacrit_uv = f(aa,crit_uv) )).

cnf(clause_14,axiom,
    ( acrit_uv = f(aconst,crit_uv) )).

%----Assume true for u and v
cnf(true_for_u,hypothesis,
    ( ~ less(acrit_u,aacrit_u) )).

cnf(true_for_v,hypothesis,
    ( ~ less(acrit_v,aacrit_v) )).

%----Prove for u*v
cnf(prove_equation,negated_conjecture,
    ( less(acrit_uv,aacrit_uv) )).

%--------------------------------------------------------------------------