From e5a040666d1dc58995d7a08e8fe18de90abc7a2d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 25 Nov 1999 01:13:00 +0000
Subject: Backtrack sur modif Evd.evd_concl

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@139 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index 72d6cfbd2e..f7b7b607fd 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -72,6 +72,10 @@ let body_of_type ty = ty.body
 
 let incast_type tty = DOP2 (Cast, tty.body, (DOP0 (Sort tty.typ)))
 
+let outcast_type = function
+   DOP2 (Cast, b, DOP0 (Sort s)) -> {body=b; typ=s}
+  | _ -> anomaly "outcast_type: Not an in-casted type judgement"
+
 (****************************************************************************)
 (*              Functions for dealing with constr terms                     *)
 (****************************************************************************)
-- 
cgit v1.2.3