]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fix in inversion:
authorWilmer Ricciotti <ricciott@cs.unibo.it>
Mon, 14 Nov 2011 15:20:42 +0000 (15:20 +0000)
committerWilmer Ricciotti <ricciott@cs.unibo.it>
Mon, 14 Nov 2011 15:20:42 +0000 (15:20 +0000)
1) Dependent inversion only makes sense for JMeq
2) Removed test line fixing is_dependent = true

matita/components/ng_tactics/nInversion.ml

index dbbf0da0f4a17b225df93321cc8ffaf6230036a1..ee0cc41c3e68fb66eccd692a1bc03a486969f22f 100644 (file)
@@ -110,8 +110,7 @@ let mk_inverter ~jmeq name is_ind it leftno ?selection outsort (status: #NCic.st
  let nparams = List.length args in
 
  (* the default is a dependent inversion *)
- (*let is_dependent = selection = None in*)
- let is_dependent = true in
+ let is_dependent = (selection = None && jmeq) in
 
  pp (lazy ("nparams = " ^ string_of_int nparams));
  if nparams = 0