(fun _ metasenv ugraph -> ty,metasenv,ugraph))
;;
-let by_term_we_proved ~dbd t ty id ty' =
+let by_term_we_proved ~dbd ~universe t ty id ty' =
let just =
match t with
- None -> Tactics.auto ~dbd ~params:[] (* da sistemare *) ~universe:Universe.empty
+ None -> Tactics.auto ~dbd ~params:[] ~universe
| Some t -> Tactics.apply t
in
match id with
~continuations:[ continuation ; just ]
;;
-let bydone ~dbd t =
+let bydone ~dbd ~universe t =
let just =
match t with
- None -> Tactics.auto ~dbd ~params:[] ~universe:Universe.empty
+ None -> Tactics.auto ~dbd ~params:[] ~universe
| Some t -> Tactics.apply t
in
just
let andelim = existselim;;
-let rewritingstep ~dbd lhs rhs just conclude =
+let rewritingstep ~dbd ~universe lhs rhs just conclude =
let aux ((proof,goal) as status) =
let (curi,metasenv,proofbo,proofty) = proof in
let _,context,_ = CicUtil.lookup_meta goal metasenv in
let just =
match just with
None ->
- Tactics.auto ~dbd
- ~params:["paramodulation","1"; "timeout","3"] ~universe:Universe.empty
+ Tactics.auto ~dbd ~params:["paramodulation","1"; "timeout","3"] ~universe
| Some just -> Tactics.apply just
in
match lhs with
let thesisbecomes t =
let ty = None in
- (*BUG here: missing check on t *)
match ty with
- None -> Tacticals.id_tac
+ None ->
+ Tactics.change ~pattern:(None,[],Some (Cic.Implicit (Some `Hole)))
+ (fun _ metasenv ugraph -> t,metasenv,ugraph)
| Some ty ->
+ (*BUG here: missing check on t *)
Tactics.change ~pattern:(None,[],Some (Cic.Implicit (Some `Hole)))
(fun _ metasenv ugraph -> ty,metasenv,ugraph)
;;