ok up to tau0

[helm.git] / matita / contribs / LAMBDA-TYPES / Level-1 / problems.ma

diff --git a/matita/contribs/LAMBDA-TYPES/Level-1/problems.ma b/matita/contribs/LAMBDA-TYPES/Level-1/problems.ma
index 409ef681ffa4919995b15f74441e33a43bbcc72f..c727f77db854e3449ae2463a6c46fa2ba497ed3e 100644 (file)
--- a/matita/contribs/LAMBDA-TYPES/Level-1/problems.ma
+++ b/matita/contribs/LAMBDA-TYPES/Level-1/problems.ma
@@ -13,18 +13,20 @@
 (**************************************************************************)
 
 (* Problematic objects for disambiguation/typechecking ********************)
-(* FG: PLEASE COMMENT THE NON WORKING OBJECTS *****************************)
 
 set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/problems".
 
-include "legacy/coq.ma".
+include "LambdaDelta/theory.ma".
 
-(*
+(* Problem 1: disambiguation errors with these objects *)
 
-(* Problem 1: generation of LambdaDelta.ma fails *)
+(*  iso_trans (in problems-1)
+ *  drop1_getl_trans (in problems-2)
+ *)
 
 (* Problem 2: assertion failure raised by type checker on this object *)
 
-tau1
-
-*)
+inductive tau1 (g:G) (c:C) (t1:T): T \to Prop \def
+| tau1_tau0: \forall (t2: T).((tau0 g c t1 t2) \to (tau1 g c t1 t2))
+| tau1_sing: \forall (t: T).((tau1 g c t1 t) \to (\forall (t2: T).((tau0 g c 
+t t2) \to (tau1 g c t1 t2)))).