;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; MDH 070918 - Simple test for Stability of a simple formula
;;; with one negative universal qfr - here with Dialectica extraction
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load "~/minlog/init.scm")
(set! COMMENT-FLAG #f)
(libload "nat.scm")

(set-goal (pf "(((all m.(all n.m<n)->bot) -> bot) -> bot) -> all m.(all n.m<n)->bot "))
(search)

(mload "../modules/diatup.scm")

(define vatmp (DIA-extract 'light (current-proof)))
(define tmtup (tmpair-to-tuple (vatmpair-to-tmpair vatmp)))
(define tmlst (tmtuple-to-tmlist tmtup))
(length tmlst)
(define ti (car tmlst))
(type-to-string (term-to-type ti))
(define tj (cadr tmlst))
(type-to-string (term-to-type tj))
(set! UNFOLDING-FLAG #t)
(set! COMMENT-FLAG #t)
(define nti (time (nt ti)))
(pp nti)
(define ntj (time (nt tj)))
(pp ntj)


