From: ajreynol <andrew.j.reynolds@gmail.com>
Date: Wed, 20 Aug 2014 16:38:04 +0000 (+0200)
Subject: Add option for inductive strengthening based on well-founded induction for integers... 
X-Git-Tag: cvc5-1.0.0~6664
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ad802cf5aee6db307d8424612b5e147f1c9aaa11;p=cvc5.git

Add option for inductive strengthening based on well-founded induction for integers (default schema).
---

diff --git a/src/theory/quantifiers/options b/src/theory/quantifiers/options
index 3260f7122..bdd852adb 100644
--- a/src/theory/quantifiers/options
+++ b/src/theory/quantifiers/options
@@ -148,6 +148,8 @@ option rrOneInstPerRound --rr-one-inst-per-round bool :default false
 
 option dtStcInduction --dt-stc-ind bool :default false
  apply strengthening for existential quantification over datatypes based on structural induction
+option intWfInduction --int-wf-ind bool :default false
+ apply strengthening for integers based on well-founded induction
 option conjectureGen --conjecture-gen bool :default false
  generate candidate conjectures for inductive proofs
 
diff --git a/src/theory/quantifiers/term_database.cpp b/src/theory/quantifiers/term_database.cpp
index 60ee5d1e9..5cc79b9b6 100644
--- a/src/theory/quantifiers/term_database.cpp
+++ b/src/theory/quantifiers/term_database.cpp
@@ -638,13 +638,15 @@ Node TermDb::mkSkolemizedBody( Node f, Node n, std::vector< TypeNode >& argTypes
     ret = n.substitute( vars.begin(), vars.end(), var_sk.begin(), var_sk.end() );
   }
   if( !ind_vars.empty() ){
-    Trace("stc-ind") << "Ind strengthen : (not " << f << ")" << std::endl;
-    Trace("stc-ind") << "Skolemized is : " << ret << std::endl;
-    Node nret;
+    Trace("sk-ind") << "Ind strengthen : (not " << f << ")" << std::endl;
+    Trace("sk-ind") << "Skolemized is : " << ret << std::endl;
     Node n_str_ind;
     TypeNode tn = ind_vars[0].getType();
+    Node k = sk[ind_var_indicies[0]];
+    Node nret = ret.substitute( ind_vars[0], k );
+    //note : everything is under a negation
+    //the following constructs ~( R( x, k ) => ~P( x ) )
     if( options::dtStcInduction() && datatypes::DatatypesRewriter::isTypeDatatype(tn) ){
-      Node k = sk[ind_var_indicies[0]];
       const Datatype& dt = ((DatatypeType)(tn).toType()).getDatatype();
       std::vector< Node > disj;
       for( unsigned i=0; i<dt.getNumConstructors(); i++ ){
@@ -659,12 +661,16 @@ Node TermDb::mkSkolemizedBody( Node f, Node n, std::vector< TypeNode >& argTypes
       }
       Assert( !disj.empty() );
       n_str_ind = disj.size()==1 ? disj[0] : NodeManager::currentNM()->mkNode( AND, disj );
-      Trace("stc-ind") << "Strengthening is : " << n_str_ind << std::endl;
-      nret = ret.substitute( ind_vars[0], k );
+    }else if( options::intWfInduction() && tn.isInteger() ){
+      Node icond = NodeManager::currentNM()->mkNode( GEQ, k, NodeManager::currentNM()->mkConst( Rational(0) ) );
+      Node iret = ret.substitute( ind_vars[0], NodeManager::currentNM()->mkNode( MINUS, k, NodeManager::currentNM()->mkConst( Rational(1) ) ) ).negate();
+      n_str_ind = NodeManager::currentNM()->mkNode( OR, icond.negate(), iret );
+      n_str_ind = NodeManager::currentNM()->mkNode( AND, icond, n_str_ind );
     }else{
-      Trace("stc-ind") << "Unknown induction for term : " << ind_vars[0] << ", type = " << tn << std::endl;
+      Trace("sk-ind") << "Unknown induction for term : " << ind_vars[0] << ", type = " << tn << std::endl;
       Assert( false );
     }
+    Trace("sk-ind") << "Strengthening is : " << n_str_ind << std::endl;
 
     std::vector< Node > rem_ind_vars;
     rem_ind_vars.insert( rem_ind_vars.end(), ind_vars.begin()+1, ind_vars.end() );
@@ -918,6 +924,9 @@ bool TermDb::isInductionTerm( Node n ) {
   if( options::dtStcInduction() && datatypes::DatatypesRewriter::isTermDatatype( n ) ){
     return true;
   }
+  if( options::intWfInduction() && n.getType().isInteger() ){
+    return true;
+  }
   return false;
 }